/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / BBS / MISC / WWIV_3.0-4 / putlaunchstuff.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 70 75 74 6c 61 75 | 6e 63 68 73 74 75 66 66 |..putlau|nchstuff|
|00000010| 2e 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 46 d5 00 | 00 02 00 9e be b2 24 9e |.....F..|......$.|
|00000060| be b2 24 00 00 02 00 00 | 00 00 00 00 00 00 00 00 |..$.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2a 0b 00 00 |........|....*...|
|00000080| 7b 24 52 2d 7d 0d 0d 7b | 24 44 45 43 4c 20 44 65 |{$R-}..{|$DECL De|
|00000090| 62 75 67 7d 0d 7b 24 53 | 45 54 43 20 44 65 62 75 |bug}.{$S|ETC Debu|
|000000a0| 67 20 3a 3d 20 66 61 6c | 73 65 7d 0d 0d 28 2a 0d |g := fal|se}..(*.|
|000000b0| 09 50 75 74 4c 61 75 6e | 63 68 53 74 75 66 66 20 |.PutLaun|chStuff |
|000000c0| 2d 20 61 20 58 43 4d 44 | 20 77 68 69 63 68 20 75 |- a XCMD| which u|
|000000d0| 70 64 61 74 65 73 20 74 | 68 65 20 63 6f 6e 74 65 |pdates t|he conte|
|000000e0| 6e 74 73 20 6f 66 20 74 | 68 65 20 0d 09 27 4c 61 |nts of t|he ..'La|
|000000f0| 75 6e 63 68 2e 62 62 73 | 27 20 66 69 6c 65 20 66 |unch.bbs|' file f|
|00000100| 72 6f 6d 20 48 79 70 65 | 72 43 61 72 64 20 47 6c |rom Hype|rCard Gl|
|00000110| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 73 2e 0d |obal var|iables..|
|00000120| 09 42 61 73 65 64 20 6f | 6e 20 47 65 74 4c 61 75 |.Based o|n GetLau|
|00000130| 6e 63 68 53 74 75 66 66 | 2e 0d 09 0d 09 54 20 52 |nchStuff|.....T R|
|00000140| 20 54 65 61 67 75 65 20 | 2d 20 31 39 20 44 65 63 | Teague |- 19 Dec|
|00000150| 20 38 37 0d 09 0d 09 70 | 61 73 63 61 6c 20 50 75 | 87....p|ascal Pu|
|00000160| 74 4c 61 75 6e 63 68 53 | 74 75 66 66 2e 70 0d 09 |tLaunchS|tuff.p..|
|00000170| 6c 69 6e 6b 20 2d 6d 20 | 45 4e 54 52 59 50 4f 49 |link -m |ENTRYPOI|
|00000180| 4e 54 20 2d 6f 20 50 75 | 74 4c 61 75 6e 63 68 53 |NT -o Pu|tLaunchS|
|00000190| 74 75 66 66 20 2d 72 74 | 20 58 43 4d 44 3d 31 31 |tuff -rt| XCMD=11|
|000001a0| 20 2d 73 6e 20 4d 61 69 | 6e 3d 47 65 74 4c 61 75 | -sn Mai|n=GetLau|
|000001b0| 6e 63 68 53 74 75 66 66 | 20 b6 0d 09 20 20 50 75 |nchStuff| ...  Pu|
|000001c0| 74 4c 61 75 6e 63 68 53 | 74 75 66 66 2e 70 2e 6f |tLaunchS|tuff.p.o|
|000001d0| 20 7b 4d 50 57 7d 4c 69 | 62 72 61 72 69 65 73 3a | {MPW}Li|braries:|
|000001e0| 49 6e 74 65 72 66 61 63 | 65 2e 6f 20 7b 4d 50 57 |Interfac|e.o {MPW|
|000001f0| 7d 50 4c 69 62 72 61 72 | 69 65 73 3a 50 61 73 4c |}PLibrar|ies:PasL|
|00000200| 69 62 2e 6f 20 0d 0d 0d | 2a 29 0d 0d 7b 24 53 20 |ib.o ...|*)..{$S |
|00000210| 50 75 74 4c 61 75 6e 63 | 68 53 74 75 66 66 7d 20 |PutLaunc|hStuff} |
|00000220| 09 7b 20 53 65 67 6d 65 | 6e 74 20 6e 61 6d 65 20 |.{ Segme|nt name |
|00000230| 6d 75 73 74 20 62 65 20 | 74 68 65 20 73 61 6d 65 |must be |the same|
|00000240| 20 61 73 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | as the |command |
|00000250| 6e 61 6d 65 2e 20 7d 0d | 0d 55 4e 49 54 20 44 75 |name. }.|.UNIT Du|
|00000260| 6d 6d 79 55 6e 69 74 3b | 0d 0d 49 4e 54 45 52 46 |mmyUnit;|..INTERF|
|00000270| 41 43 45 0d 0d 55 53 45 | 53 20 4d 65 6d 54 79 70 |ACE..USE|S MemTyp|
|00000280| 65 73 2c 20 51 75 69 63 | 6b 44 72 61 77 2c 20 4f |es, Quic|kDraw, O|
|00000290| 53 49 6e 74 66 2c 20 54 | 6f 6f 6c 49 6e 74 66 2c |SIntf, T|oolIntf,|
|000002a0| 20 48 79 70 65 72 58 43 | 6d 64 2c 20 50 61 63 6b | HyperXC|md, Pack|
|000002b0| 49 6e 74 66 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |Intf;..P|ROCEDURE|
|000002c0| 20 45 6e 74 72 79 50 6f | 69 6e 74 28 70 61 72 61 | EntryPo|int(para|
|000002d0| 6d 50 74 72 3a 20 58 43 | 6d 64 50 74 72 29 3b 0d |mPtr: XC|mdPtr);.|
|000002e0| 09 0d 49 4d 50 4c 45 4d | 45 4e 54 41 54 49 4f 4e |..IMPLEM|ENTATION|
|000002f0| 0d 0d 54 59 50 45 20 53 | 74 72 33 31 20 3d 20 53 |..TYPE S|tr31 = S|
|00000300| 74 72 69 6e 67 5b 33 31 | 5d 3b 0d 0d 50 52 4f 43 |tring[31|];..PROC|
|00000310| 45 44 55 52 45 20 50 75 | 74 4c 61 75 6e 63 68 53 |EDURE Pu|tLaunchS|
|00000320| 74 75 66 66 28 70 61 72 | 61 6d 50 74 72 3a 20 58 |tuff(par|amPtr: X|
|00000330| 43 6d 64 50 74 72 29 3b | 20 46 4f 52 57 41 52 44 |CmdPtr);| FORWARD|
|00000340| 3b 0d 0d 20 20 20 50 52 | 4f 43 45 44 55 52 45 20 |;..   PR|OCEDURE |
|00000350| 45 6e 74 72 79 50 6f 69 | 6e 74 28 70 61 72 61 6d |EntryPoi|nt(param|
|00000360| 50 74 72 3a 20 58 43 6d | 64 50 74 72 29 3b 0d 20 |Ptr: XCm|dPtr);. |
|00000370| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 50 75 |  BEGIN.|      Pu|
|00000380| 74 4c 61 75 6e 63 68 53 | 74 75 66 66 28 70 61 72 |tLaunchS|tuff(par|
|00000390| 61 6d 50 74 72 29 3b 0d | 20 20 20 45 4e 44 3b 0d |amPtr);.|   END;.|
|000003a0| 0d 20 20 20 50 52 4f 43 | 45 44 55 52 45 20 50 75 |.   PROC|EDURE Pu|
|000003b0| 74 4c 61 75 6e 63 68 53 | 74 75 66 66 28 70 61 72 |tLaunchS|tuff(par|
|000003c0| 61 6d 50 74 72 3a 20 58 | 43 6d 64 50 74 72 29 3b |amPtr: X|CmdPtr);|
|000003d0| 0d 0d 20 20 20 7b 20 53 | 74 61 6e 64 61 72 64 20 |..   { S|tandard |
|000003e0| 63 6f 6e 73 74 27 73 2c | 20 74 79 70 65 73 2c 20 |const's,| types, |
|000003f0| 76 61 72 73 20 66 6f 72 | 20 42 42 53 20 66 69 6c |vars for| BBS fil|
|00000400| 65 73 20 7d 0d 0d 20 20 | 20 63 6f 6e 73 74 0d 20 |es }..  | const. |
|00000410| 20 20 20 20 73 74 72 6c | 65 6e 20 3d 20 31 36 30 |    strl|en = 160|
|00000420| 3b 20 7b 20 6c 65 6e 67 | 74 68 20 6f 66 20 73 74 |; { leng|th of st|
|00000430| 72 69 6e 67 20 7d 0d 09 | 20 0d 20 20 74 79 70 65 |ring }..| .  type|
|00000440| 0d 0d 20 20 20 20 20 73 | 74 72 74 79 70 65 3d 73 |..     s|trtype=s|
|00000450| 74 72 69 6e 67 5b 73 74 | 72 6c 65 6e 5d 3b 20 7b |tring[st|rlen]; {|
|00000460| 20 73 74 72 69 6e 67 20 | 74 79 70 65 20 7d 0d 0d | string |type }..|
|00000470| 7b 20 65 6e 75 6d 65 72 | 61 74 65 64 20 6c 69 73 |{ enumer|ated lis|
|00000480| 74 20 6f 66 20 75 73 65 | 72 20 72 65 73 74 72 69 |t of use|r restri|
|00000490| 63 74 69 6f 6e 73 20 2d | 20 6d 6f 64 69 66 69 65 |ctions -| modifie|
|000004a0| 64 20 66 6f 72 20 76 65 | 72 73 69 6f 6e 20 33 2e |d for ve|rsion 3.|
|000004b0| 30 20 7d 0d 7b 20 0d 20 | 20 6c 6f 67 6f 6e 73 20 |0 }.{ . | logons |
|000004c0| 32 2f 64 61 79 20 28 27 | 4c 27 29 2c 20 6e 6f 20 |2/day ('|L'), no |
|000004d0| 63 68 61 74 74 69 6e 67 | 20 28 27 43 27 29 2c 20 |chatting| ('C'), |
|000004e0| 75 6e 76 61 6c 69 64 61 | 74 65 64 20 6d 65 73 73 |unvalida|ted mess|
|000004f0| 61 67 65 73 20 28 27 56 | 27 29 2c 20 6e 6f 20 62 |ages ('V|'), no b|
|00000500| 61 63 6b 73 70 61 63 69 | 6e 67 20 28 27 42 27 29 |ackspaci|ng ('B')|
|00000510| 2c 0d 20 20 63 61 6e 27 | 74 20 63 68 61 6e 67 65 |,.  can'|t change|
|00000520| 20 61 75 74 6f 6d 73 67 | 2f 61 64 64 20 74 6f 20 | automsg|/add to |
|00000530| 42 42 53 20 6c 69 73 74 | 20 28 27 41 27 29 2c 20 |BBS list| ('A'), |
|00000540| 63 61 6e 27 74 20 70 6f | 73 74 20 61 6e 6f 6e 79 |can't po|st anony|
|00000550| 6d 6f 75 73 20 6d 73 67 | 73 20 28 27 2a 27 29 2c |mous msg|s ('*'),|
|00000560| 0d 20 20 63 61 6e 27 74 | 20 70 6f 73 74 20 61 74 |.  can't| post at|
|00000570| 20 61 6c 6c 20 28 27 50 | 27 29 2c 20 63 61 6e 27 | all ('P|'), can'|
|00000580| 74 20 73 65 6e 64 20 73 | 65 6e 64 20 45 2d 4d 61 |t send s|end E-Ma|
|00000590| 69 6c 20 28 27 45 27 29 | 2c 20 63 61 6e 27 74 20 |il ('E')|, can't |
|000005a0| 76 6f 74 65 20 28 27 4b | 27 29 2c 0d 20 20 63 61 |vote ('K|'),.  ca|
|000005b0| 6e 27 74 20 61 75 74 6f | 2d 64 65 6c 65 74 65 20 |n't auto|-delete |
|000005c0| 6d 73 67 73 20 28 27 4d | 27 29 2c 20 63 61 6e 27 |msgs ('M|'), can'|
|000005d0| 74 20 64 6f 77 6e 6c 6f | 61 64 20 69 66 20 75 2f |t downlo|ad if u/|
|000005e0| 6c 20 74 6f 20 64 2f 6c | 20 72 61 74 69 6f 20 69 |l to d/l| ratio i|
|000005f0| 73 20 65 78 63 65 65 64 | 65 64 20 28 27 44 27 29 |s exceed|ed ('D')|
|00000600| 0d 7d 0d 72 65 73 74 72 | 69 63 74 69 6f 6e 73 3d |.}.restr|ictions=|
|00000610| 28 72 6c 6f 67 6f 6e 2c | 72 63 68 61 74 2c 72 76 |(rlogon,|rchat,rv|
|00000620| 61 6c 69 64 61 74 65 2c | 72 62 61 63 6b 73 70 61 |alidate,|rbackspa|
|00000630| 63 65 2c 72 61 6d 73 67 | 2c 72 70 6f 73 74 61 6e |ce,ramsg|,rpostan|
|00000640| 2c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.      |        |
|00000650| 20 20 20 20 20 72 70 6f | 73 74 2c 72 65 6d 61 69 |     rpo|st,remai|
|00000660| 6c 2c 72 76 6f 74 69 6e | 67 2c 72 6d 73 67 2c 72 |l,rvotin|g,rmsg,r|
|00000670| 64 6c 29 3b 20 0d 0d 20 | 20 20 20 20 61 63 72 71 |dl); .. |    acrq|
|00000680| 3d 27 40 27 2e 2e 27 47 | 27 3b 20 7b 20 62 6f 61 |='@'..'G|'; { boa|
|00000690| 72 64 20 61 63 63 65 73 | 73 20 3a 20 6e 6f 6e 65 |rd acces|s : none|
|000006a0| 2c 20 41 20 2d 3e 20 47 | 20 2d 20 6e 6f 74 20 72 |, A -> G| - not r|
|000006b0| 65 61 6c 6c 79 20 75 73 | 65 64 20 7d 0d 0d 7b 20 |eally us|ed }..{ |
|000006c0| 65 6d 75 6e 65 72 61 74 | 65 64 20 75 73 65 72 20 |emunerat|ed user |
|000006d0| 64 65 66 61 75 6c 74 73 | 20 3a 20 73 70 69 6e 6e |defaults| : spinn|
|000006e0| 69 6e 67 20 63 75 72 73 | 6f 72 2c 20 6f 6e 65 6b |ing curs|or, onek|
|000006f0| 65 79 20 69 6e 70 75 74 | 2c 20 77 6f 72 64 20 77 |ey input|, word w|
|00000700| 72 61 70 2c 20 73 63 72 | 65 65 6e 20 70 61 75 73 |rap, scr|een paus|
|00000710| 65 20 7d 0d 20 20 20 20 | 20 64 65 66 6c 74 73 3d |e }.    | deflts=|
|00000720| 28 73 70 63 73 72 2c 6f | 6e 65 6b 65 79 2c 77 6f |(spcsr,o|nekey,wo|
|00000730| 72 64 77 72 61 70 2c 70 | 61 75 73 65 29 3b 0d 0d |rdwrap,p|ause);..|
|00000740| 7b 20 65 6e 75 6d 65 72 | 61 74 65 64 20 73 70 65 |{ enumer|ated spe|
|00000750| 63 69 61 6c 20 75 73 65 | 72 20 61 6c 65 72 74 73 |cial use|r alerts|
|00000760| 20 3a 20 61 6c 65 72 74 | 2c 20 73 6d 61 6c 6c 20 | : alert|, small |
|00000770| 6d 73 67 20 77 61 69 74 | 69 6e 67 2c 20 63 61 6e |msg wait|ing, can|
|00000780| 27 74 20 72 65 63 65 69 | 76 65 20 45 2d 4d 61 69 |'t recei|ve E-Mai|
|00000790| 6c 20 7d 0d 20 20 20 20 | 20 6f 70 74 73 3d 28 6d |l }.    | opts=(m|
|000007a0| 79 61 6c 65 72 74 2c 73 | 6d 77 2c 6e 6f 6d 61 69 |yalert,s|mw,nomai|
|000007b0| 6c 29 3b 20 0d 20 20 20 | 20 20 0d 20 20 20 20 20 |l); .   |  .     |
|000007c0| 6d 65 73 73 61 67 65 73 | 3d 72 65 63 6f 72 64 20 |messages|=record |
|000007d0| 7b 20 6d 73 67 73 20 66 | 69 6c 65 6e 61 6d 65 20 |{ msgs f|ilename |
|000007e0| 69 6e 66 6f 20 20 2d 20 | 65 2e 67 20 66 69 6c 65 |info  - |e.g file|
|000007f0| 6e 61 6d 65 20 6f 66 20 | 66 6f 72 6d 20 41 2d 33 |name of |form A-3|
|00000800| 32 37 36 37 2e 31 20 7d | 0d 20 20 20 20 20 20 20 |2767.1 }|.       |
|00000810| 20 20 20 20 20 20 20 20 | 20 6c 74 72 3a 63 68 61 |        | ltr:cha|
|00000820| 72 3b 20 7b 20 62 6f 61 | 72 64 20 6c 65 74 74 65 |r; { boa|rd lette|
|00000830| 72 20 28 69 2e 65 2e 20 | 41 20 3d 20 62 6f 61 72 |r (i.e. |A = boar|
|00000840| 64 20 6e 6f 2e 20 31 29 | 20 7d 0d 20 20 20 20 20 |d no. 1)| }.     |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 6e 75 6d 62 65 |        |   numbe|
|00000860| 72 3a 69 6e 74 65 67 65 | 72 3b 20 7b 20 75 6e 69 |r:intege|r; { uni|
|00000870| 71 75 65 20 6d 73 67 20 | 6e 75 6d 62 65 72 20 7d |que msg |number }|
|00000880| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000890| 20 65 78 74 3a 62 79 74 | 65 3b 20 7b 20 75 6e 69 | ext:byt|e; { uni|
|000008a0| 71 75 65 20 6d 73 67 20 | 6e 75 6d 62 65 72 20 66 |que msg |number f|
|000008b0| 6f 72 20 66 69 6c 65 6e | 61 6d 65 20 65 78 74 65 |or filen|ame exte|
|000008c0| 6e 73 69 6f 6e 20 28 4d | 53 2d 44 4f 53 29 20 7d |nsion (M|S-DOS) }|
|000008d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 65 |.       |       e|
|000008e0| 6e 64 3b 0d 20 20 20 20 | 20 75 73 65 72 72 65 63 |nd;.    | userrec|
|000008f0| 3d 72 65 63 6f 72 64 20 | 7b 20 75 73 65 72 20 69 |=record |{ user i|
|00000900| 6e 66 6f 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |nfo }.  |        |
|00000910| 20 20 20 20 20 6e 61 6d | 65 3a 73 74 72 69 6e 67 |     nam|e:string|
|00000920| 5b 32 35 5d 3b 20 7b 20 | 61 6c 69 61 73 20 7d 0d |[25]; { |alias }.|
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 |        |       r|
|00000940| 65 61 6c 6e 61 6d 65 3a | 73 74 72 69 6e 67 5b 31 |ealname:|string[1|
|00000950| 34 5d 3b 20 7b 20 72 65 | 61 6c 6e 61 6d 65 20 7d |4]; { re|alname }|
|00000960| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000970| 64 65 6c 65 74 65 64 3a | 62 6f 6f 6c 65 61 6e 3b |deleted:|boolean;|
|00000980| 20 7b 20 64 65 6c 65 74 | 65 64 20 66 6c 61 67 20 | { delet|ed flag |
|00000990| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.      |        |
|000009a0| 20 70 77 3a 73 74 72 69 | 6e 67 5b 38 5d 3b 20 7b | pw:stri|ng[8]; {|
|000009b0| 20 70 61 73 73 77 6f 72 | 64 20 7d 0d 20 20 20 20 | passwor|d }.    |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 70 68 3a 73 74 |        |   ph:st|
|000009d0| 72 69 6e 67 5b 31 32 5d | 3b 20 7b 20 70 68 6f 6e |ring[12]|; { phon|
|000009e0| 65 20 6e 6f 2e 20 7d 0d | 20 20 20 20 20 20 20 20 |e no. }.|        |
|000009f0| 20 20 20 20 20 20 20 77 | 61 69 74 69 6e 67 3a 62 |       w|aiting:b|
|00000a00| 79 74 65 3b 20 7b 20 6e | 6f 2e 20 6f 66 20 45 2d |yte; { n|o. of E-|
|00000a10| 4d 61 69 6c 20 6d 73 67 | 73 20 77 61 69 74 69 6e |Mail msg|s waitin|
|00000a20| 67 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |g }.    |        |
|00000a30| 20 20 20 6c 61 73 74 6f | 6e 3a 73 74 72 69 6e 67 |   lasto|n:string|
|00000a40| 5b 31 30 5d 3b 20 7b 20 | 6c 61 73 74 20 6f 6e 20 |[10]; { |last on |
|00000a50| 64 61 74 65 20 7d 0d 20 | 20 20 20 20 20 20 20 20 |date }. |        |
|00000a60| 20 20 20 20 20 20 6c 6f | 67 67 65 64 6f 6e 3a 69 |      lo|ggedon:i|
|00000a70| 6e 74 65 67 65 72 3b 20 | 7b 20 74 6f 74 61 6c 20 |nteger; |{ total |
|00000a80| 6e 6f 2e 20 6f 66 20 74 | 69 6d 65 73 20 6c 6f 67 |no. of t|imes log|
|00000a90| 67 65 64 20 6f 6e 20 73 | 79 73 74 65 6d 20 7d 0d |ged on s|ystem }.|
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00000ab0| 73 67 70 6f 73 74 3a 69 | 6e 74 65 67 65 72 3b 20 |sgpost:i|nteger; |
|00000ac0| 7b 20 74 6f 74 61 6c 20 | 6e 6f 2e 20 6f 66 20 6d |{ total |no. of m|
|00000ad0| 73 67 73 20 70 6f 73 74 | 65 64 20 7d 0d 20 20 20 |sgs post|ed }.   |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 65 6d 61 69 |        |    emai|
|00000af0| 6c 73 65 6e 74 3a 69 6e | 74 65 67 65 72 3b 20 7b |lsent:in|teger; {|
|00000b00| 20 74 6f 74 61 6c 20 6e | 6f 2e 20 6f 66 20 45 2d | total n|o. of E-|
|00000b10| 4d 61 69 6c 20 6d 73 67 | 73 20 73 65 6e 74 20 7d |Mail msg|s sent }|
|00000b20| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000b30| 66 65 65 64 62 61 63 6b | 3a 69 6e 74 65 67 65 72 |feedback|:integer|
|00000b40| 3b 20 7b 20 74 6f 74 61 | 6c 20 6e 6f 2e 20 6f 66 |; { tota|l no. of|
|00000b50| 20 66 65 65 64 62 61 63 | 6b 20 6d 73 67 73 20 73 | feedbac|k msgs s|
|00000b60| 65 6e 74 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |ent }.  |        |
|00000b70| 20 20 20 20 20 6c 69 6e | 65 6c 65 6e 3a 62 79 74 |     lin|elen:byt|
|00000b80| 65 3b 20 7b 20 75 73 65 | 72 27 73 20 73 63 72 65 |e; { use|r's scre|
|00000b90| 65 6e 20 77 69 64 74 68 | 20 7d 0d 20 20 20 20 20 |en width| }.     |
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 70 61 67 65 6c 65 |        |  pagele|
|00000bb0| 6e 3a 62 79 74 65 3b 20 | 7b 20 75 73 65 72 27 73 |n:byte; |{ user's|
|00000bc0| 20 73 63 72 65 65 6e 20 | 68 65 69 67 68 74 20 7d | screen |height }|
|00000bd0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000be0| 64 65 66 61 75 6c 74 73 | 3a 73 65 74 20 6f 66 20 |defaults|:set of |
|00000bf0| 64 65 66 6c 74 73 3b 20 | 7b 20 73 65 74 20 6f 66 |deflts; |{ set of|
|00000c00| 20 75 73 65 72 20 64 65 | 66 61 75 6c 74 73 20 28 | user de|faults (|
|00000c10| 6f 6e 2f 6f 66 66 29 20 | 2d 20 73 65 65 20 61 62 |on/off) |- see ab|
|00000c20| 6f 76 65 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |ove }.  |        |
|00000c30| 20 20 20 20 20 6f 6e 74 | 6f 64 61 79 3a 62 79 74 |     ont|oday:byt|
|00000c40| 65 3b 20 7b 20 6e 6f 2e | 20 6f 66 20 74 69 6d 65 |e; { no.| of time|
|00000c50| 73 20 6c 6f 67 67 65 64 | 20 6f 6e 20 74 6f 64 61 |s logged| on toda|
|00000c60| 79 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |y }.    |        |
|00000c70| 20 20 20 69 6c 6c 65 67 | 61 6c 3a 62 79 74 65 3b |   illeg|al:byte;|
|00000c80| 20 7b 20 6e 6f 2e 20 6f | 66 20 69 6c 6c 65 67 61 | { no. o|f illega|
|00000c90| 6c 20 6c 6f 67 6f 6e 73 | 20 74 6f 64 61 79 20 7d |l logons| today }|
|00000ca0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000cb0| 63 75 72 73 6f 72 3a 73 | 74 72 69 6e 67 5b 31 30 |cursor:s|tring[10|
|00000cc0| 5d 3b 20 7b 20 73 70 69 | 6e 6e 69 6e 67 20 63 75 |]; { spi|nning cu|
|00000cd0| 72 73 6f 72 20 28 69 66 | 20 61 6e 79 29 20 22 77 |rsor (if| any) "w|
|00000ce0| 6f 72 64 22 20 7d 0d 20 | 20 20 20 20 20 20 20 20 |ord" }. |        |
|00000cf0| 20 20 20 20 20 20 73 6c | 3a 62 79 74 65 3b 20 7b |      sl|:byte; {|
|00000d00| 20 73 65 63 75 72 69 74 | 79 20 6c 65 76 65 6c 20 | securit|y level |
|00000d10| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.      |        |
|00000d20| 20 61 63 3a 73 65 74 20 | 6f 66 20 72 65 73 74 72 | ac:set |of restr|
|00000d30| 69 63 74 69 6f 6e 73 3b | 20 7b 20 73 65 74 20 6f |ictions;| { set o|
|00000d40| 66 20 75 73 65 72 20 72 | 65 73 74 72 69 63 74 69 |f user r|estricti|
|00000d50| 6f 6e 73 20 28 6f 6e 2f | 6f 66 66 29 20 2d 20 73 |ons (on/|off) - s|
|00000d60| 65 65 20 61 62 6f 76 65 | 20 7d 0d 20 20 20 20 20 |ee above| }.     |
|00000d70| 20 20 20 20 20 20 20 20 | 20 20 61 72 3a 73 65 74 |        |  ar:set|
|00000d80| 20 6f 66 20 61 63 72 71 | 3b 20 7b 20 73 65 74 20 | of acrq|; { set |
|00000d90| 6f 66 20 62 6f 61 72 64 | 73 20 75 73 65 72 20 68 |of board|s user h|
|00000da0| 61 73 20 61 63 63 65 73 | 73 20 74 6f 20 28 6f 6e |as acces|s to (on|
|00000db0| 2f 6f 66 66 29 20 2d 20 | 6e 6f 74 20 72 65 61 6c |/off) - |not real|
|00000dc0| 6c 79 20 75 73 65 64 20 | 2d 20 73 65 65 20 61 62 |ly used |- see ab|
|00000dd0| 6f 76 65 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |ove }.  |        |
|00000de0| 20 20 20 20 20 71 73 63 | 61 6e 3a 61 72 72 61 79 |     qsc|an:array|
|00000df0| 5b 31 2e 2e 31 39 5d 20 | 6f 66 20 6d 65 73 73 61 |[1..19] |of messa|
|00000e00| 67 65 73 3b 20 7b 20 6c | 61 73 74 20 6d 73 67 20 |ges; { l|ast msg |
|00000e10| 51 2d 73 63 61 6e 6e 65 | 64 20 66 6f 72 20 65 61 |Q-scanne|d for ea|
|00000e20| 63 68 20 31 20 6f 66 20 | 31 39 20 70 6f 73 73 69 |ch 1 of |19 possi|
|00000e30| 62 6c 65 20 62 6f 61 72 | 64 73 20 7d 0d 20 20 20 |ble boar|ds }.   |
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 71 73 63 6e |        |    qscn|
|00000e50| 3a 61 72 72 61 79 5b 31 | 2e 2e 31 39 5d 20 6f 66 |:array[1|..19] of|
|00000e60| 20 62 6f 6f 6c 65 61 6e | 3b 20 7b 20 63 6f 6e 66 | boolean|; { conf|
|00000e70| 69 67 75 72 65 64 20 51 | 2d 53 63 61 6e 20 66 6c |igured Q|-Scan fl|
|00000e80| 61 67 73 20 66 6f 72 20 | 75 70 20 74 6f 20 31 39 |ags for |up to 19|
|00000e90| 20 62 6f 61 72 64 73 20 | 7d 0d 20 20 20 20 20 20 | boards |}.      |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 6d 61 63 72 6f 3a 61 |        | macro:a|
|00000eb0| 72 72 61 79 5b 31 2e 2e | 32 5d 20 6f 66 20 73 74 |rray[1..|2] of st|
|00000ec0| 72 69 6e 67 5b 37 39 5d | 3b 20 7b 20 63 6f 6e 74 |ring[79]|; { cont|
|00000ed0| 72 6f 6c 2d 64 20 26 20 | 63 6f 6e 74 72 6f 6c 2d |rol-d & |control-|
|00000ee0| 66 20 6d 61 63 72 6f 20 | 65 78 70 61 6e 73 69 6f |f macro |expansio|
|00000ef0| 6e 73 20 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ns }.   |        |
|00000f00| 20 20 20 20 63 6f 6d 70 | 74 79 70 65 3a 62 79 74 |    comp|type:byt|
|00000f10| 65 3b 20 7b 20 63 6f 6d | 70 75 74 65 72 20 74 79 |e; { com|puter ty|
|00000f20| 70 65 20 28 31 20 2d 3e | 20 6e 75 6d 63 6f 6d 70 |pe (1 ->| numcomp|
|00000f30| 74 79 70 65 73 29 20 61 | 73 20 73 65 74 20 75 70 |types) a|s set up|
|00000f40| 20 65 6c 73 65 77 68 65 | 72 65 20 7d 0d 20 20 20 | elsewhe|re }.   |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 6f 70 74 69 |        |    opti|
|00000f60| 6f 6e 3a 73 65 74 20 6f | 66 20 6f 70 74 73 3b 20 |on:set o|f opts; |
|00000f70| 7b 20 73 65 74 20 6f 66 | 20 75 73 65 72 20 6f 70 |{ set of| user op|
|00000f80| 74 69 6f 6e 73 20 28 6f | 6e 2f 6f 66 66 29 20 2d |tions (o|n/off) -|
|00000f90| 20 73 65 65 20 61 62 6f | 76 65 20 7d 0d 20 20 20 | see abo|ve }.   |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 76 6f 74 65 |        |    vote|
|00000fb0| 3a 61 72 72 61 79 5b 31 | 2e 2e 39 5d 20 6f 66 20 |:array[1|..9] of |
|00000fc0| 62 79 74 65 3b 20 7b 20 | 76 6f 74 65 64 20 66 6c |byte; { |voted fl|
|00000fd0| 61 67 73 20 66 6f 72 20 | 75 70 20 74 6f 20 39 20 |ags for |up to 9 |
|00000fe0| 71 75 65 73 74 69 6f 6e | 73 20 7d 0d 20 20 20 20 |question|s }.    |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 73 62 6e 3a 62 |        |   sbn:b|
|00001000| 79 74 65 3b 20 7b 20 22 | 73 70 65 63 69 61 6c 20 |yte; { "|special |
|00001010| 62 6f 61 72 64 20 6e 6f | 2e 22 20 2d 20 75 73 65 |board no|." - use|
|00001020| 72 20 68 61 73 20 72 69 | 67 68 74 73 20 74 6f 20 |r has ri|ghts to |
|00001030| 76 61 6c 69 64 61 74 65 | 2f 64 65 6c 65 74 65 20 |validate|/delete |
|00001040| 6d 73 67 73 20 6f 6e 20 | 62 6f 61 72 64 20 28 30 |msgs on |board (0|
|00001050| 20 3d 20 41 6c 6c 29 20 | 7d 0d 20 20 20 20 20 20 | = All) |}.      |
|00001060| 20 20 20 20 20 20 20 20 | 20 64 73 6c 3a 62 79 74 |        | dsl:byt|
|00001070| 65 3b 20 7b 20 64 6f 77 | 6e 6c 6f 61 64 20 73 65 |e; { dow|nload se|
|00001080| 63 75 72 69 74 79 20 6c | 65 76 65 6c 20 7d 0d 20 |curity l|evel }. |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 75 70 |        |      up|
|000010a0| 6c 6f 61 64 73 2c 64 6f | 77 6e 6c 6f 61 64 73 3a |loads,do|wnloads:|
|000010b0| 69 6e 74 65 67 65 72 3b | 20 7b 20 4e 6f 2e 20 6f |integer;| { No. o|
|000010c0| 66 20 66 69 6c 65 73 20 | 75 70 6c 6f 61 64 65 64 |f files |uploaded|
|000010d0| 2f 64 6f 77 6e 6c 6f 61 | 64 65 64 20 7d 0d 20 20 |/downloa|ded }.  |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 75 6b 2c |        |     uk,|
|000010f0| 64 6b 3a 69 6e 74 65 67 | 65 72 3b 20 7b 20 4e 6f |dk:integ|er; { No|
|00001100| 2e 20 6f 66 20 4b 62 27 | 73 20 75 70 6c 6f 61 64 |. of Kb'|s upload|
|00001110| 65 64 2f 64 6f 77 6e 6c | 6f 61 64 65 64 20 7d 0d |ed/downl|oaded }.|
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6e 64 |        |     end|
|00001130| 3b 0d 20 20 20 20 20 20 | 73 79 73 74 61 74 72 65 |;.      |systatre|
|00001140| 63 3d 72 65 63 6f 72 64 | 20 7b 20 73 74 61 74 75 |c=record| { statu|
|00001150| 73 20 72 65 63 6f 72 64 | 20 7d 0d 20 20 20 20 20 |s record| }.     |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 6f 61 |        |     boa|
|00001170| 72 64 70 77 3a 73 74 72 | 69 6e 67 5b 38 5d 3b 20 |rdpw:str|ing[8]; |
|00001180| 7b 20 63 6c 6f 73 65 64 | 20 62 6f 61 72 64 20 70 |{ closed| board p|
|00001190| 61 73 73 77 6f 72 64 20 | 28 69 66 20 61 6e 79 29 |assword |(if any)|
|000011a0| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | }.     |        |
|000011b0| 20 20 20 20 20 73 79 73 | 6f 70 70 77 3a 73 74 72 |     sys|oppw:str|
|000011c0| 69 6e 67 5b 38 5d 3b 20 | 7b 20 73 79 73 6f 70 27 |ing[8]; |{ sysop'|
|000011d0| 73 20 32 6e 64 20 70 61 | 73 73 77 6f 72 64 20 7d |s 2nd pa|ssword }|
|000011e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000011f0| 20 20 20 68 6d 73 67 3a | 6d 65 73 73 61 67 65 73 |   hmsg:|messages|
|00001200| 3b 20 7b 20 6d 73 67 20 | 66 69 6c 65 6e 61 6d 65 |; { msg |filename|
|00001210| 20 69 6e 66 6f 20 2d 20 | 6e 65 78 74 20 61 76 61 | info - |next ava|
|00001220| 69 6c 2e 20 6d 73 67 20 | 66 69 6c 65 6e 61 6d 65 |il. msg |filename|
|00001230| 20 3f 3f 3f 20 7d 0d 20 | 20 20 20 20 20 20 20 20 | ??? }. |        |
|00001240| 20 20 20 20 20 20 20 20 | 20 75 73 65 72 73 3a 69 |        | users:i|
|00001250| 6e 74 65 67 65 72 3b 20 | 7b 20 6e 6f 2e 20 6f 66 |nteger; |{ no. of|
|00001260| 20 75 73 65 72 73 20 63 | 75 72 72 65 6e 74 6c 79 | users c|urrently|
|00001270| 20 6f 6e 20 73 79 73 74 | 65 6d 20 7d 0d 20 20 20 | on syst|em }.   |
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6c |        |       l|
|00001290| 61 73 74 64 61 74 65 3a | 73 74 72 69 6e 67 5b 38 |astdate:|string[8|
|000012a0| 5d 3b 20 7b 20 6c 61 73 | 74 20 64 61 74 65 20 74 |]; { las|t date t|
|000012b0| 68 61 74 20 73 79 73 74 | 65 6d 20 77 61 73 20 75 |hat syst|em was u|
|000012c0| 73 65 64 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |sed }.  |        |
|000012d0| 20 20 20 20 20 20 20 20 | 63 61 6c 6c 65 72 6e 75 |        |callernu|
|000012e0| 6d 3a 69 6e 74 65 67 65 | 72 3b 20 7b 20 63 75 72 |m:intege|r; { cur|
|000012f0| 72 65 6e 74 2f 6e 65 78 | 74 20 63 61 6c 6c 65 72 |rent/nex|t caller|
|00001300| 20 6e 6f 2e 20 7d 0d 20 | 20 20 20 20 20 20 20 20 | no. }. |        |
|00001310| 20 20 20 20 20 20 20 20 | 20 61 63 74 69 76 65 74 |        | activet|
|00001320| 6f 64 61 79 3a 69 6e 74 | 65 67 65 72 3b 20 7b 20 |oday:int|eger; { |
|00001330| 61 6d 6f 75 6e 74 20 6f | 66 20 74 69 6d 65 20 69 |amount o|f time i|
|00001340| 6e 20 6d 69 6e 73 20 74 | 68 61 74 20 73 79 73 74 |n mins t|hat syst|
|00001350| 65 6d 20 77 61 73 20 75 | 70 20 7d 0d 20 20 20 20 |em was u|p }.    |
|00001360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 |        |      ca|
|00001370| 6c 6c 73 74 6f 64 61 79 | 3a 69 6e 74 65 67 65 72 |llstoday|:integer|
|00001380| 3b 20 7b 20 6e 6f 2e 20 | 6f 66 20 63 61 6c 6c 73 |; { no. |of calls|
|00001390| 20 74 6f 64 61 79 20 7d | 0d 20 20 20 20 20 20 20 | today }|.       |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 73 67 70 6f |        |   msgpo|
|000013b0| 73 74 74 6f 64 61 79 3a | 69 6e 74 65 67 65 72 3b |sttoday:|integer;|
|000013c0| 20 7b 20 6e 6f 2e 20 6f | 66 20 6d 73 67 73 20 70 | { no. o|f msgs p|
|000013d0| 6f 73 74 65 64 20 74 6f | 64 61 79 20 7d 0d 20 20 |osted to|day }.  |
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013f0| 65 6d 61 69 6c 74 6f 64 | 61 79 3a 69 6e 74 65 67 |emailtod|ay:integ|
|00001400| 65 72 3b 20 7b 20 6e 6f | 2e 20 6f 66 20 45 2d 4d |er; { no|. of E-M|
|00001410| 61 69 6c 20 6d 73 67 73 | 20 73 65 6e 74 20 74 6f |ail msgs| sent to|
|00001420| 64 61 79 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |day }.  |        |
|00001430| 20 20 20 20 20 20 20 20 | 66 62 61 63 6b 74 6f 64 |        |fbacktod|
|00001440| 61 79 3a 69 6e 74 65 67 | 65 72 3b 20 7b 20 6e 6f |ay:integ|er; { no|
|00001450| 2e 20 6f 66 20 46 65 65 | 64 62 61 63 6b 20 6d 73 |. of Fee|dback ms|
|00001460| 67 73 20 73 65 6e 74 20 | 74 6f 64 61 79 20 7d 0d |gs sent |today }.|
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001480| 20 20 75 70 74 6f 64 61 | 79 3a 69 6e 74 65 67 65 |  uptoda|y:intege|
|00001490| 72 3b 20 7b 20 6e 6f 2e | 20 6f 66 20 75 70 6c 6f |r; { no.| of uplo|
|000014a0| 61 64 73 20 74 6f 64 61 | 79 20 7d 0d 20 20 20 20 |ads toda|y }.    |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6c |        |      cl|
|000014c0| 6f 73 65 64 73 79 73 74 | 65 6d 3a 62 6f 6f 6c 65 |osedsyst|em:boole|
|000014d0| 61 6e 3b 20 7b 20 63 6c | 6f 73 65 64 20 73 79 73 |an; { cl|osed sys|
|000014e0| 74 65 6d 20 66 6c 61 67 | 20 7d 0d 20 20 20 20 20 |tem flag| }.     |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 64 3b 0d |        |   end;.|
|00001500| 09 20 20 7b 20 61 64 64 | 65 64 20 66 6f 72 20 76 |.  { add|ed for v|
|00001510| 65 72 73 69 6f 6e 20 33 | 2e 30 20 7d 0d 20 20 20 |ersion 3|.0 }.   |
|00001520| 20 20 20 6c 61 75 6e 63 | 68 72 65 63 20 3d 20 72 |   launc|hrec = r|
|00001530| 65 63 6f 72 64 0d 20 20 | 20 20 20 20 20 20 20 20 |ecord.  |        |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 6c 73 75 62 6c |        |   lsubl|
|00001550| 61 75 6e 63 68 20 3a 20 | 62 6f 6f 6c 65 61 6e 3b |aunch : |boolean;|
|00001560| 20 7b 20 74 72 75 65 20 | 69 66 20 73 75 62 2d 6c | { true |if sub-l|
|00001570| 61 75 6e 63 68 65 64 20 | 66 72 6f 6d 20 42 42 53 |aunched |from BBS|
|00001580| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | }.     |        |
|00001590| 20 20 20 20 20 20 20 20 | 6c 72 65 74 75 72 6e 70 |        |lreturnp|
|000015a0| 72 6f 67 20 3a 20 73 74 | 72 69 6e 67 5b 38 30 5d |rog : st|ring[80]|
|000015b0| 3b 20 7b 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |; { name| of this|
|000015c0| 20 70 72 6f 67 72 61 6d | 20 7d 0d 20 20 20 20 20 | program| }.     |
|000015d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015e0| 6c 75 73 65 72 6f 6e 20 | 3a 20 62 6f 6f 6c 65 61 |luseron |: boolea|
|000015f0| 6e 3b 20 7b 20 74 72 75 | 65 20 69 66 20 75 73 65 |n; { tru|e if use|
|00001600| 72 20 69 73 20 6f 6e 20 | 2d 20 6d 6f 73 74 20 6f |r is on |- most o|
|00001610| 66 20 66 6f 6c 6c 6f 77 | 69 6e 67 0d 20 20 20 20 |f follow|ing.    |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001640| 20 20 20 20 20 20 66 69 | 65 6c 64 73 20 61 72 65 |      fi|elds are|
|00001650| 20 6f 6e 6c 79 20 76 61 | 6c 69 64 20 69 66 20 75 | only va|lid if u|
|00001660| 73 65 72 20 69 73 20 6f | 6e 20 7d 0d 20 20 20 20 |ser is o|n }.    |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001680| 20 6c 69 6e 63 6f 6d 20 | 3a 20 62 6f 6f 6c 65 61 | lincom |: boolea|
|00001690| 6e 3b 20 7b 20 69 6e 70 | 75 74 20 66 72 6f 6d 20 |n; { inp|ut from |
|000016a0| 73 65 72 69 61 6c 20 70 | 6f 72 74 20 7d 0d 20 20 |serial p|ort }.  |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016c0| 20 20 20 6c 6f 75 74 63 | 6f 6d 20 3a 20 62 6f 6f |   loutc|om : boo|
|000016d0| 6c 65 61 6e 3b 20 7b 20 | 6f 6b 20 74 6f 20 6f 75 |lean; { |ok to ou|
|000016e0| 74 70 75 74 20 74 6f 20 | 73 65 72 69 61 6c 20 70 |tput to |serial p|
|000016f0| 6f 72 74 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |ort }.  |        |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 6c 73 70 64 20 |        |   lspd |
|00001710| 3a 20 73 74 72 69 6e 67 | 5b 32 30 5d 3b 20 7b 20 |: string|[20]; { |
|00001720| 63 75 72 72 65 6e 74 20 | 62 61 75 64 20 72 61 74 |current |baud rat|
|00001730| 65 20 6f 72 20 4b 42 2c | 20 77 69 74 68 20 74 72 |e or KB,| with tr|
|00001740| 61 69 6c 69 6e 67 20 6f | 70 74 69 6f 6e 73 20 7d |ailing o|ptions }|
|00001750| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001760| 20 20 20 20 20 20 6c 68 | 61 6e 67 75 70 20 3a 20 |      lh|angup : |
|00001770| 62 6f 6f 6c 65 61 6e 3b | 20 7b 20 69 66 20 75 73 |boolean;| { if us|
|00001780| 65 72 20 68 61 73 20 74 | 6f 20 68 61 6e 67 20 75 |er has t|o hang u|
|00001790| 70 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |p }.    |        |
|000017a0| 20 20 20 20 20 20 20 20 | 20 6c 75 73 65 72 6e 75 |        | lusernu|
|000017b0| 6d 20 3a 20 69 6e 74 65 | 67 65 72 3b 20 7b 20 74 |m : inte|ger; { t|
|000017c0| 68 65 20 6e 6f 2e 20 6f | 66 20 74 68 65 20 75 73 |he no. o|f the us|
|000017d0| 65 72 20 7d 0d 09 09 20 | 20 20 20 20 6c 74 68 69 |er }... |    lthi|
|000017e0| 73 75 73 65 72 20 3a 20 | 75 73 65 72 72 65 63 3b |suser : |userrec;|
|000017f0| 20 7b 20 63 75 72 72 65 | 6e 74 20 75 73 65 72 20 | { curre|nt user |
|00001800| 72 65 63 6f 72 64 20 7d | 0d 20 20 20 20 20 20 20 |record }|.       |
|00001810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 72 |        |      lr|
|00001820| 65 61 6c 73 6c 20 3a 20 | 69 6e 74 65 67 65 72 3b |ealsl : |integer;|
|00001830| 20 7b 20 63 75 72 72 65 | 6e 74 20 75 73 65 72 27 | { curre|nt user'|
|00001840| 73 20 72 65 61 6c 20 53 | 4c 20 7d 0d 20 20 20 20 |s real S|L }.    |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001860| 20 6c 74 69 6d 65 6f 6e | 20 3a 20 72 65 61 6c 3b | ltimeon| : real;|
|00001870| 20 7b 20 74 69 6d 65 20 | 63 75 72 72 65 6e 74 20 | { time |current |
|00001880| 75 73 65 72 20 6c 6f 67 | 67 65 64 20 6f 6e 20 7d |user log|ged on }|
|00001890| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000018a0| 20 20 20 20 20 20 6c 74 | 74 69 6d 65 20 3a 20 72 |      lt|time : r|
|000018b0| 65 61 6c 3b 20 7b 20 75 | 73 65 72 27 73 20 61 6c |eal; { u|ser's al|
|000018c0| 6c 6f 77 65 64 20 74 69 | 6d 65 20 6f 6e 20 66 6f |lowed ti|me on fo|
|000018d0| 72 20 68 69 73 20 53 4c | 20 7d 0d 20 20 20 20 20 |r his SL| }.     |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018f0| 6c 65 78 74 72 61 74 69 | 6d 65 20 3a 20 72 65 61 |lextrati|me : rea|
|00001900| 6c 3b 20 7b 20 63 75 72 | 72 65 6e 74 20 75 73 65 |l; { cur|rent use|
|00001910| 72 27 73 20 74 69 6d 65 | 20 63 6f 6d 70 65 6e 73 |r's time| compens|
|00001920| 61 74 69 6f 6e 20 7d 0d | 09 09 20 20 20 20 20 6c |ation }.|..     l|
|00001930| 63 68 61 74 74 69 6d 65 | 20 3a 20 72 65 61 6c 3b |chattime| : real;|
|00001940| 20 7b 20 64 69 74 74 6f | 20 66 6f 72 20 63 68 61 | { ditto| for cha|
|00001950| 74 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |t }.    |        |
|00001960| 20 20 20 20 20 20 20 20 | 20 6c 73 79 73 74 61 74 |        | lsystat|
|00001970| 20 3a 20 73 79 73 74 61 | 74 72 65 63 3b 20 7b 20 | : systa|trec; { |
|00001980| 63 75 72 72 65 6e 74 20 | 73 74 61 74 75 73 20 72 |current |status r|
|00001990| 65 63 6f 72 64 20 7d 0d | 20 20 20 20 20 20 20 20 |ecord }.|        |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 73 79 |        |     lsy|
|000019b0| 73 6f 70 61 76 61 69 6c | 20 3a 20 62 6f 6f 6c 65 |sopavail| : boole|
|000019c0| 61 6e 3b 20 7b 20 73 79 | 73 6f 70 20 61 76 61 69 |an; { sy|sop avai|
|000019d0| 6c 61 62 6c 65 20 7d 0d | 20 20 20 20 20 20 20 20 |lable }.|        |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 65 78 |        |     lex|
|000019f0| 74 72 61 6d 73 67 73 20 | 3a 20 69 6e 74 65 67 65 |tramsgs |: intege|
|00001a00| 72 3b 20 7b 20 6e 6f 2e | 20 6f 66 20 6d 73 67 73 |r; { no.| of msgs|
|00001a10| 20 61 6c 6c 6f 77 65 64 | 20 3f 20 7d 0d 20 20 20 | allowed| ? }.   |
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a30| 20 20 6c 63 68 61 74 63 | 61 6c 6c 20 3a 20 62 6f |  lchatc|all : bo|
|00001a40| 6f 6c 65 61 6e 3b 20 7b | 20 64 6f 65 73 20 75 73 |olean; {| does us|
|00001a50| 65 72 20 77 61 6e 74 20 | 74 6f 20 63 68 61 74 20 |er want |to chat |
|00001a60| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.      |        |
|00001a70| 20 20 20 20 20 20 20 6c | 63 68 61 74 72 20 3a 20 |       l|chatr : |
|00001a80| 73 74 72 74 79 70 65 3b | 20 7b 20 72 65 61 73 6f |strtype;| { reaso|
|00001a90| 6e 20 66 6f 72 20 63 68 | 61 74 20 7d 0d 20 20 20 |n for ch|at }.   |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ab0| 20 20 6c 65 78 70 65 72 | 74 20 3a 20 62 6f 6f 6c |  lexper|t : bool|
|00001ac0| 65 61 6e 3b 20 7b 20 75 | 73 65 72 27 73 20 6d 65 |ean; { u|ser's me|
|00001ad0| 6e 75 20 65 78 70 65 72 | 74 20 6d 6f 64 65 20 7d |nu exper|t mode }|
|00001ae0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001af0| 20 20 20 20 20 20 6c 66 | 74 6f 64 61 79 20 3a 20 |      lf|today : |
|00001b00| 69 6e 74 65 67 65 72 3b | 20 7b 20 61 6d 6f 75 6e |integer;| { amoun|
|00001b10| 74 20 6f 66 20 66 65 65 | 64 62 61 63 6b 20 74 6f |t of fee|dback to|
|00001b20| 64 61 79 20 62 79 20 75 | 73 65 72 20 7d 0d 20 20 |day by u|ser }.  |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b40| 20 20 20 6c 65 74 6f 64 | 61 79 20 3a 20 69 6e 74 |   letod|ay : int|
|00001b50| 65 67 65 72 3b 20 7b 20 | 61 6d 6f 75 6e 74 20 6f |eger; { |amount o|
|00001b60| 66 20 65 6d 61 69 6c 20 | 73 65 6e 74 20 74 6f 64 |f email |sent tod|
|00001b70| 61 79 20 62 79 20 75 73 | 65 72 20 7d 0d 20 20 20 |ay by us|er }.   |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b90| 20 20 6c 6d 72 65 61 64 | 20 3a 20 69 6e 74 65 67 |  lmread| : integ|
|00001ba0| 65 72 3b 20 7b 20 6e 6f | 2e 20 6f 66 20 6d 73 67 |er; { no|. of msg|
|00001bb0| 73 20 72 65 61 64 20 62 | 79 20 75 73 65 72 20 7d |s read b|y user }|
|00001bc0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001bd0| 20 20 20 20 20 20 6c 70 | 74 6f 64 61 79 20 3a 20 |      lp|today : |
|00001be0| 69 6e 74 65 67 65 72 3b | 20 7b 20 6e 6f 2e 20 6f |integer;| { no. o|
|00001bf0| 66 20 6d 73 67 73 20 70 | 6f 73 74 65 64 20 74 6f |f msgs p|osted to|
|00001c00| 64 61 79 20 62 79 20 75 | 73 65 72 20 7d 0d 20 20 |day by u|ser }.  |
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c20| 65 6e 64 3b 0d 20 20 56 | 41 52 20 0d 20 20 09 67 |end;.  V|AR .  .g|
|00001c30| 6f 74 4c 61 75 6e 63 68 | 20 3a 20 62 6f 6f 6c 65 |otLaunch| : boole|
|00001c40| 61 6e 3b 0d 09 61 70 70 | 6e 61 6d 65 20 3a 20 53 |an;..app|name : S|
|00001c50| 74 72 32 35 35 3b 0d 7b | 24 49 46 43 20 44 65 62 |tr255;.{|$IFC Deb|
|00001c60| 75 67 7d 0d 20 20 20 20 | 20 20 20 20 64 65 62 75 |ug}.    |    debu|
|00001c70| 67 66 69 6c 65 20 3a 20 | 69 6e 74 65 67 65 72 3b |gfile : |integer;|
|00001c80| 0d 09 72 65 74 63 68 61 | 72 20 3a 20 73 74 72 69 |..retcha|r : stri|
|00001c90| 6e 67 5b 31 5d 3b 0d 7b | 24 45 4e 44 43 7d 0d 09 |ng[1];.{|$ENDC}..|
|00001ca0| 0d 20 7b 24 49 20 58 43 | 6d 64 47 6c 75 65 2e 69 |. {$I XC|mdGlue.i|
|00001cb0| 6e 63 20 7d 0d 0d 20 20 | 70 72 6f 63 65 64 75 72 |nc }..  |procedur|
|00001cc0| 65 20 47 65 74 41 47 6c | 6f 62 61 6c 28 74 68 65 |e GetAGl|obal(the|
|00001cd0| 6e 61 6d 65 20 3a 20 53 | 74 72 32 35 35 3b 20 76 |name : S|tr255; v|
|00001ce0| 61 72 20 74 68 65 73 74 | 72 20 3a 20 53 74 72 32 |ar thest|r : Str2|
|00001cf0| 35 35 29 3b 0d 20 20 0d | 20 20 76 61 72 20 74 65 |55);.  .|  var te|
|00001d00| 6d 70 68 61 6e 64 6c 65 | 20 3a 20 48 61 6e 64 6c |mphandle| : Handl|
|00001d10| 65 3b 0d 20 20 20 20 20 | 20 74 65 6d 70 50 74 72 |e;.     | tempPtr|
|00001d20| 20 3a 20 50 74 72 3b 0d | 7b 24 49 46 43 20 44 65 | : Ptr;.|{$IFC De|
|00001d30| 62 75 67 7d 0d 20 20 20 | 20 20 20 49 4f 45 72 72 |bug}.   |   IOErr|
|00001d40| 6f 72 20 3a 20 4f 53 45 | 72 72 3b 0d 20 20 20 20 |or : OSE|rr;.    |
|00001d50| 20 20 63 6f 75 6e 74 20 | 3a 20 4c 6f 6e 67 49 6e |  count |: LongIn|
|00001d60| 74 3b 0d 7b 24 45 4e 44 | 43 7d 0d 0d 20 20 62 65 |t;.{$END|C}..  be|
|00001d70| 67 69 6e 0d 20 20 20 20 | 20 74 65 6d 70 48 61 6e |gin.    | tempHan|
|00001d80| 64 6c 65 20 3a 3d 20 47 | 65 74 47 6c 6f 62 61 6c |dle := G|etGlobal|
|00001d90| 28 74 68 65 6e 61 6d 65 | 29 3b 0d 20 20 20 20 20 |(thename|);.     |
|00001da0| 74 65 6d 70 50 74 72 20 | 3a 3d 20 74 65 6d 70 48 |tempPtr |:= tempH|
|00001db0| 61 6e 64 6c 65 5e 3b 0d | 20 20 20 20 20 5a 65 72 |andle^;.|     Zer|
|00001dc0| 6f 54 6f 50 61 73 28 74 | 65 6d 70 50 74 72 2c 74 |oToPas(t|empPtr,t|
|00001dd0| 68 65 73 74 72 29 3b 0d | 7b 24 49 46 43 20 44 65 |hestr);.|{$IFC De|
|00001de0| 62 75 67 7d 0d 20 20 20 | 20 20 63 6f 75 6e 74 20 |bug}.   |  count |
|00001df0| 3a 3d 20 6c 65 6e 67 74 | 68 28 74 68 65 73 74 72 |:= lengt|h(thestr|
|00001e00| 29 3b 0d 20 20 20 20 20 | 49 4f 45 72 72 6f 72 20 |);.     |IOError |
|00001e10| 3a 3d 20 46 53 57 72 69 | 74 65 28 64 65 62 75 67 |:= FSWri|te(debug|
|00001e20| 66 69 6c 65 2c 63 6f 75 | 6e 74 2c 70 6f 69 6e 74 |file,cou|nt,point|
|00001e30| 65 72 28 6f 72 64 34 28 | 40 74 68 65 73 74 72 29 |er(ord4(|@thestr)|
|00001e40| 20 2b 20 31 29 29 3b 20 | 7b 20 73 6b 69 70 20 6c | + 1)); |{ skip l|
|00001e50| 65 6e 67 74 68 20 62 79 | 74 65 20 7d 0d 20 20 20 |ength by|te }.   |
|00001e60| 20 20 69 66 20 49 4f 45 | 72 72 6f 72 20 3c 3e 20 |  if IOE|rror <> |
|00001e70| 6e 6f 45 72 72 20 74 68 | 65 6e 0d 20 20 20 20 20 |noErr th|en.     |
|00001e80| 62 65 67 69 6e 0d 20 20 | 20 20 20 65 6e 64 3b 0d |begin.  |   end;.|
|00001e90| 20 20 20 20 20 63 6f 75 | 6e 74 20 3a 3d 20 31 3b |     cou|nt := 1;|
|00001ea0| 0d 20 20 20 20 20 49 4f | 45 72 72 6f 72 20 3a 3d |.     IO|Error :=|
|00001eb0| 20 46 53 57 72 69 74 65 | 28 64 65 62 75 67 66 69 | FSWrite|(debugfi|
|00001ec0| 6c 65 2c 63 6f 75 6e 74 | 2c 70 6f 69 6e 74 65 72 |le,count|,pointer|
|00001ed0| 28 6f 72 64 34 28 40 72 | 65 74 63 68 61 72 29 20 |(ord4(@r|etchar) |
|00001ee0| 2b 20 31 29 29 3b 20 7b | 20 73 6b 69 70 20 6c 65 |+ 1)); {| skip le|
|00001ef0| 6e 67 74 68 20 62 79 74 | 65 20 7d 0d 20 20 20 20 |ngth byt|e }.    |
|00001f00| 20 69 66 20 49 4f 45 72 | 72 6f 72 20 3c 3e 20 6e | if IOEr|ror <> n|
|00001f10| 6f 45 72 72 20 74 68 65 | 6e 0d 20 20 20 20 20 62 |oErr the|n.     b|
|00001f20| 65 67 69 6e 0d 20 20 20 | 20 20 65 6e 64 3b 0d 7b |egin.   |  end;.{|
|00001f30| 24 45 4e 44 43 7d 0d 20 | 20 20 20 20 44 69 73 70 |$ENDC}. |    Disp|
|00001f40| 6f 73 48 61 6e 64 6c 65 | 28 74 65 6d 70 48 61 6e |osHandle|(tempHan|
|00001f50| 64 6c 65 29 3b 0d 65 6e | 64 3b 20 7b 20 67 65 74 |dle);.en|d; { get|
|00001f60| 61 67 6c 6f 62 61 6c 20 | 7d 0d 20 20 0d 20 20 70 |aglobal |}.  .  p|
|00001f70| 72 6f 63 65 64 75 72 65 | 20 53 65 74 4c 44 61 74 |rocedure| SetLDat|
|00001f80| 61 3b 0d 0d 20 20 76 61 | 72 0d 09 6c 61 75 6e 63 |a;..  va|r..launc|
|00001f90| 68 66 69 6c 65 20 3a 20 | 69 6e 74 65 67 65 72 3b |hfile : |integer;|
|00001fa0| 0d 09 6c 61 75 6e 63 68 | 64 61 74 61 20 3a 20 4c |..launch|data : L|
|00001fb0| 61 75 6e 63 68 52 65 63 | 3b 0d 09 74 65 6d 70 50 |aunchRec|;..tempP|
|00001fc0| 74 72 20 3a 20 5e 69 6e | 74 65 67 65 72 3b 0d 09 |tr : ^in|teger;..|
|00001fd0| 44 65 66 61 75 6c 74 57 | 44 20 3a 20 69 6e 74 65 |DefaultW|D : inte|
|00001fe0| 67 65 72 3b 0d 09 49 4f | 45 72 72 6f 72 20 3a 20 |ger;..IO|Error : |
|00001ff0| 4f 53 45 72 72 3b 0d 09 | 63 6f 75 6e 74 20 3a 20 |OSErr;..|count : |
|00002000| 4c 6f 6e 67 49 6e 74 3b | 0d 09 74 72 65 73 74 72 |LongInt;|..trestr|
|00002010| 69 63 74 69 6f 6e 73 20 | 3a 20 72 65 73 74 72 69 |ictions |: restri|
|00002020| 63 74 69 6f 6e 73 3b 0d | 09 74 61 63 72 71 20 3a |ctions;.|.tacrq :|
|00002030| 20 61 63 72 71 3b 0d 09 | 74 64 65 66 6c 74 73 20 | acrq;..|tdeflts |
|00002040| 3a 20 64 65 66 6c 74 73 | 3b 0d 09 74 6f 70 74 73 |: deflts|;..topts|
|00002050| 20 3a 20 6f 70 74 73 3b | 0d 09 74 65 6d 70 73 74 | : opts;|..tempst|
|00002060| 72 2c 74 73 74 72 20 3a | 20 53 74 72 32 35 35 3b |r,tstr :| Str255;|
|00002070| 0d 09 74 65 6d 70 69 6e | 74 2c 74 70 6f 73 20 3a |..tempin|t,tpos :|
|00002080| 20 69 6e 74 65 67 65 72 | 3b 0d 09 74 65 6d 70 48 | integer|;..tempH|
|00002090| 61 6e 64 6c 65 20 3a 20 | 48 61 6e 64 6c 65 3b 0d |andle : |Handle;.|
|000020a0| 09 0d 0d 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 |...  BEG|IN.     |
|000020b0| 67 6f 74 4c 61 75 6e 63 | 68 20 3a 3d 20 66 61 6c |gotLaunc|h := fal|
|000020c0| 73 65 3b 0d 20 20 20 20 | 20 0d 20 20 20 20 20 49 |se;.    | .     I|
|000020d0| 4f 45 72 72 6f 72 20 3a | 3d 20 47 65 74 56 6f 6c |OError :|= GetVol|
|000020e0| 28 40 74 65 6d 70 73 74 | 72 2c 44 65 66 61 75 6c |(@tempst|r,Defaul|
|000020f0| 74 57 44 29 3b 0d 0d 7b | 24 49 46 43 20 44 65 62 |tWD);..{|$IFC Deb|
|00002100| 75 67 7d 0d 20 20 20 20 | 20 49 4f 45 72 72 6f 72 |ug}.    | IOError|
|00002110| 20 3a 3d 20 46 53 44 65 | 6c 65 74 65 28 27 64 65 | := FSDe|lete('de|
|00002120| 62 75 67 20 70 75 74 6c | 61 75 6e 63 68 27 2c 44 |bug putl|aunch',D|
|00002130| 65 66 61 75 6c 74 57 44 | 29 3b 0d 20 20 20 20 20 |efaultWD|);.     |
|00002140| 69 66 20 49 4f 45 72 72 | 6f 72 20 3c 3e 20 6e 6f |if IOErr|or <> no|
|00002150| 45 72 72 20 74 68 65 6e | 0d 20 20 20 20 20 62 65 |Err then|.     be|
|00002160| 67 69 6e 0d 20 20 20 20 | 20 65 6e 64 3b 0d 20 20 |gin.    | end;.  |
|00002170| 20 20 20 49 4f 45 72 72 | 6f 72 20 3a 3d 20 43 72 |   IOErr|or := Cr|
|00002180| 65 61 74 65 28 27 64 65 | 62 75 67 20 70 75 74 6c |eate('de|bug putl|
|00002190| 61 75 6e 63 68 27 2c 44 | 65 66 61 75 6c 74 57 44 |aunch',D|efaultWD|
|000021a0| 2c 27 45 44 49 54 27 2c | 27 54 45 58 54 27 29 3b |,'EDIT',|'TEXT');|
|000021b0| 0d 20 20 20 20 20 69 66 | 20 49 4f 45 72 72 6f 72 |.     if| IOError|
|000021c0| 20 3c 3e 20 6e 6f 45 72 | 72 20 74 68 65 6e 0d 20 | <> noEr|r then. |
|000021d0| 20 20 20 20 62 65 67 69 | 6e 0d 20 20 20 20 20 65 |    begi|n.     e|
|000021e0| 6e 64 3b 0d 20 20 20 20 | 20 49 4f 45 72 72 6f 72 |nd;.    | IOError|
|000021f0| 20 3a 3d 20 46 53 4f 70 | 65 6e 28 27 64 65 62 75 | := FSOp|en('debu|
|00002200| 67 20 70 75 74 6c 61 75 | 6e 63 68 27 2c 44 65 66 |g putlau|nch',Def|
|00002210| 61 75 6c 74 57 44 2c 64 | 65 62 75 67 66 69 6c 65 |aultWD,d|ebugfile|
|00002220| 29 3b 0d 20 20 20 20 20 | 72 65 74 63 68 61 72 20 |);.     |retchar |
|00002230| 3a 3d 20 27 20 27 3b 20 | 72 65 74 63 68 61 72 5b |:= ' '; |retchar[|
|00002240| 31 5d 20 3a 3d 20 63 68 | 72 28 31 33 29 3b 0d 7b |1] := ch|r(13);.{|
|00002250| 24 45 4e 44 43 7d 0d 0d | 20 20 20 20 20 49 4f 45 |$ENDC}..|     IOE|
|00002260| 72 72 6f 72 20 3a 3d 20 | 46 53 44 65 6c 65 74 65 |rror := |FSDelete|
|00002270| 28 27 6c 61 75 6e 63 68 | 2e 62 62 73 27 2c 44 65 |('launch|.bbs',De|
|00002280| 66 61 75 6c 74 57 44 29 | 3b 0d 20 20 20 20 20 69 |faultWD)|;.     i|
|00002290| 66 20 49 4f 45 72 72 6f | 72 20 3c 3e 20 6e 6f 45 |f IOErro|r <> noE|
|000022a0| 72 72 20 74 68 65 6e 0d | 20 20 20 20 20 62 65 67 |rr then.|     beg|
|000022b0| 69 6e 0d 20 20 20 20 20 | 65 6e 64 3b 0d 20 20 20 |in.     |end;.   |
|000022c0| 20 20 49 4f 45 72 72 6f | 72 20 3a 3d 20 43 72 65 |  IOErro|r := Cre|
|000022d0| 61 74 65 28 27 6c 61 75 | 6e 63 68 2e 62 62 73 27 |ate('lau|nch.bbs'|
|000022e0| 2c 44 65 66 61 75 6c 74 | 57 44 2c 27 20 20 20 20 |,Default|WD,'    |
|000022f0| 27 2c 27 42 49 4e 41 27 | 29 3b 0d 20 20 20 20 20 |','BINA'|);.     |
|00002300| 69 66 20 49 4f 45 72 72 | 6f 72 20 3c 3e 20 6e 6f |if IOErr|or <> no|
|00002310| 45 72 72 20 74 68 65 6e | 0d 20 20 20 20 20 62 65 |Err then|.     be|
|00002320| 67 69 6e 0d 20 20 20 20 | 20 65 6e 64 3b 0d 20 20 |gin.    | end;.  |
|00002330| 20 20 20 49 4f 45 72 72 | 6f 72 20 3a 3d 20 46 53 |   IOErr|or := FS|
|00002340| 4f 70 65 6e 28 27 6c 61 | 75 6e 63 68 2e 62 62 73 |Open('la|unch.bbs|
|00002350| 27 2c 44 65 66 61 75 6c | 74 57 44 2c 6c 61 75 6e |',Defaul|tWD,laun|
|00002360| 63 68 66 69 6c 65 29 3b | 0d 20 20 20 20 20 69 66 |chfile);|.     if|
|00002370| 20 49 4f 45 72 72 6f 72 | 20 3d 20 6e 6f 45 72 72 | IOError| = noErr|
|00002380| 20 74 68 65 6e 0d 20 20 | 20 20 20 62 65 67 69 6e | then.  |   begin|
|00002390| 0d 20 20 20 20 20 20 20 | 20 67 6f 74 4c 61 75 6e |.       | gotLaun|
|000023a0| 63 68 20 3a 3d 20 74 72 | 75 65 3b 0d 20 20 20 20 |ch := tr|ue;.    |
|000023b0| 20 0d 20 20 20 20 20 20 | 20 20 77 69 74 68 20 6c | .      |  with l|
|000023c0| 61 75 6e 63 68 64 61 74 | 61 20 64 6f 0d 20 20 20 |aunchdat|a do.   |
|000023d0| 20 20 20 20 20 62 65 67 | 69 6e 0d 09 20 20 20 47 |     beg|in..   G|
|000023e0| 65 74 41 47 6c 6f 62 61 | 6c 28 27 6c 73 75 62 6c |etAGloba|l('lsubl|
|000023f0| 61 75 6e 63 68 27 2c 74 | 65 6d 70 73 74 72 29 3b |aunch',t|empstr);|
|00002400| 20 6c 73 75 62 6c 61 75 | 6e 63 68 20 3a 3d 20 53 | lsublau|nch := S|
|00002410| 74 72 54 6f 42 6f 6f 6c | 28 74 65 6d 70 73 74 72 |trToBool|(tempstr|
|00002420| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 47 65 |);.     |      Ge|
|00002430| 74 41 70 70 50 61 72 6d | 73 28 61 70 70 6e 61 6d |tAppParm|s(appnam|
|00002440| 65 2c 74 65 6d 70 69 6e | 74 2c 74 65 6d 70 48 61 |e,tempin|t,tempHa|
|00002450| 6e 64 6c 65 29 3b 20 7b | 20 67 65 74 20 74 68 65 |ndle); {| get the|
|00002460| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 61 70 | name of| this ap|
|00002470| 70 6c 2e 20 7d 0d 09 20 | 20 20 7b 47 65 74 41 47 |pl. }.. |  {GetAG|
|00002480| 6c 6f 62 61 6c 28 27 6c | 72 65 74 75 72 6e 70 72 |lobal('l|returnpr|
|00002490| 6f 67 27 2c 61 70 70 6e | 61 6d 65 29 3b 7d 0d 09 |og',appn|ame);}..|
|000024a0| 20 20 20 6c 72 65 74 75 | 72 6e 70 72 6f 67 20 3a |   lretu|rnprog :|
|000024b0| 3d 20 61 70 70 6e 61 6d | 65 3b 0d 09 20 20 20 47 |= appnam|e;..   G|
|000024c0| 65 74 41 47 6c 6f 62 61 | 6c 28 27 6c 75 73 65 72 |etAGloba|l('luser|
|000024d0| 6f 6e 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 6c 75 |on',temp|str); lu|
|000024e0| 73 65 72 6f 6e 20 3a 3d | 20 53 74 72 54 6f 42 6f |seron :=| StrToBo|
|000024f0| 6f 6c 28 74 65 6d 70 73 | 74 72 29 3b 0d 09 20 20 |ol(temps|tr);..  |
|00002500| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 69 6e | GetAGlo|bal('lin|
|00002510| 63 6f 6d 27 2c 74 65 6d | 70 73 74 72 29 3b 20 6c |com',tem|pstr); l|
|00002520| 69 6e 63 6f 6d 20 3a 3d | 20 53 74 72 54 6f 42 6f |incom :=| StrToBo|
|00002530| 6f 6c 28 74 65 6d 70 73 | 74 72 29 3b 0d 09 20 20 |ol(temps|tr);..  |
|00002540| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 6f 75 | GetAGlo|bal('lou|
|00002550| 74 63 6f 6d 27 2c 74 65 | 6d 70 73 74 72 29 3b 20 |tcom',te|mpstr); |
|00002560| 6c 6f 75 74 63 6f 6d 20 | 3a 3d 20 53 74 72 54 6f |loutcom |:= StrTo|
|00002570| 42 6f 6f 6c 28 74 65 6d | 70 73 74 72 29 3b 0d 20 |Bool(tem|pstr);. |
|00002580| 20 20 20 20 20 20 20 20 | 20 20 47 65 74 41 47 6c |        |  GetAGl|
|00002590| 6f 62 61 6c 28 27 6c 73 | 70 64 27 2c 74 65 6d 70 |obal('ls|pd',temp|
|000025a0| 73 74 72 29 3b 20 6c 73 | 70 64 20 3a 3d 20 74 65 |str); ls|pd := te|
|000025b0| 6d 70 73 74 72 3b 0d 09 | 20 20 20 47 65 74 41 47 |mpstr;..|   GetAG|
|000025c0| 6c 6f 62 61 6c 28 27 6c | 68 61 6e 67 75 70 27 2c |lobal('l|hangup',|
|000025d0| 74 65 6d 70 73 74 72 29 | 3b 20 6c 68 61 6e 67 75 |tempstr)|; lhangu|
|000025e0| 70 20 3a 3d 20 53 74 72 | 54 6f 42 6f 6f 6c 28 74 |p := Str|ToBool(t|
|000025f0| 65 6d 70 73 74 72 29 3b | 0d 09 20 20 20 47 65 74 |empstr);|..   Get|
|00002600| 41 47 6c 6f 62 61 6c 28 | 27 6c 75 73 65 72 6e 75 |AGlobal(|'lusernu|
|00002610| 6d 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 6c 75 73 |m',temps|tr); lus|
|00002620| 65 72 6e 75 6d 20 3a 3d | 20 53 74 72 54 6f 4e 75 |ernum :=| StrToNu|
|00002630| 6d 28 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |m(tempst|r);..   |
|00002640| 77 69 74 68 20 6c 74 68 | 69 73 75 73 65 72 20 64 |with lth|isuser d|
|00002650| 6f 0d 20 20 20 20 20 20 | 20 20 20 20 20 62 65 67 |o.      |     beg|
|00002660| 69 6e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |in.     |        |
|00002670| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 74 68 | GetAGlo|bal('lth|
|00002680| 69 73 75 73 65 72 5f 6e | 61 6d 65 27 2c 74 65 6d |isuser_n|ame',tem|
|00002690| 70 73 74 72 29 3b 20 6e | 61 6d 65 20 3a 3d 20 74 |pstr); n|ame := t|
|000026a0| 65 6d 70 73 74 72 3b 0d | 20 20 20 20 20 20 20 20 |empstr;.|        |
|000026b0| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|000026c0| 28 27 6c 74 68 69 73 75 | 73 65 72 5f 72 65 61 6c |('lthisu|ser_real|
|000026d0| 6e 61 6d 65 27 2c 74 65 | 6d 70 73 74 72 29 3b 20 |name',te|mpstr); |
|000026e0| 72 65 61 6c 6e 61 6d 65 | 20 3a 3d 20 74 65 6d 70 |realname| := temp|
|000026f0| 73 74 72 3b 0d 09 20 20 | 20 20 20 20 47 65 74 41 |str;..  |    GetA|
|00002700| 47 6c 6f 62 61 6c 28 27 | 6c 74 68 69 73 75 73 65 |Global('|lthisuse|
|00002710| 72 5f 64 65 6c 65 74 65 | 64 27 2c 74 65 6d 70 73 |r_delete|d',temps|
|00002720| 74 72 29 3b 20 64 65 6c | 65 74 65 64 20 3a 3d 20 |tr); del|eted := |
|00002730| 53 74 72 54 6f 42 6f 6f | 6c 28 74 65 6d 70 73 74 |StrToBoo|l(tempst|
|00002740| 72 29 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |r);.    |        |
|00002750| 20 20 7b 20 6d 61 79 62 | 65 20 6e 6f 74 20 73 65 |  { mayb|e not se|
|00002760| 74 20 6e 65 78 74 20 76 | 61 6c 75 65 20 73 6f 20 |t next v|alue so |
|00002770| 73 65 63 75 72 69 74 79 | 20 69 73 6e 27 74 20 63 |security| isn't c|
|00002780| 6f 6d 70 72 6f 6d 69 73 | 65 64 20 7d 0d 20 20 20 |ompromis|ed }.   |
|00002790| 20 20 20 20 20 20 20 20 | 20 20 20 47 65 74 41 47 |        |   GetAG|
|000027a0| 6c 6f 62 61 6c 28 27 6c | 74 68 69 73 75 73 65 72 |lobal('l|thisuser|
|000027b0| 5f 70 77 27 2c 74 65 6d | 70 73 74 72 29 3b 20 70 |_pw',tem|pstr); p|
|000027c0| 77 20 3a 3d 20 74 65 6d | 70 73 74 72 3b 0d 20 20 |w := tem|pstr;.  |
|000027d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 65 74 41 |        |    GetA|
|000027e0| 47 6c 6f 62 61 6c 28 27 | 6c 74 68 69 73 75 73 65 |Global('|lthisuse|
|000027f0| 72 5f 70 68 27 2c 74 65 | 6d 70 73 74 72 29 3b 20 |r_ph',te|mpstr); |
|00002800| 70 68 20 3a 3d 20 74 65 | 6d 70 73 74 72 3b 0d 09 |ph := te|mpstr;..|
|00002810| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00002820| 28 27 6c 74 68 69 73 75 | 73 65 72 5f 77 61 69 74 |('lthisu|ser_wait|
|00002830| 69 6e 67 27 2c 74 65 6d | 70 73 74 72 29 3b 20 77 |ing',tem|pstr); w|
|00002840| 61 69 74 69 6e 67 20 3a | 3d 20 53 74 72 54 6f 4e |aiting :|= StrToN|
|00002850| 75 6d 28 74 65 6d 70 73 | 74 72 29 3b 0d 20 20 20 |um(temps|tr);.   |
|00002860| 20 20 20 20 20 20 20 20 | 20 20 20 47 65 74 41 47 |        |   GetAG|
|00002870| 6c 6f 62 61 6c 28 27 6c | 74 68 69 73 75 73 65 72 |lobal('l|thisuser|
|00002880| 5f 6c 61 73 74 6f 6e 27 | 2c 74 65 6d 70 73 74 72 |_laston'|,tempstr|
|00002890| 29 3b 20 6c 61 73 74 6f | 6e 20 3a 3d 20 74 65 6d |); lasto|n := tem|
|000028a0| 70 73 74 72 3b 0d 09 20 | 20 20 20 20 20 47 65 74 |pstr;.. |     Get|
|000028b0| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|000028c0| 65 72 5f 6c 6f 67 67 65 | 64 6f 6e 27 2c 74 65 6d |er_logge|don',tem|
|000028d0| 70 73 74 72 29 3b 20 6c | 6f 67 67 65 64 6f 6e 20 |pstr); l|oggedon |
|000028e0| 3a 3d 20 53 74 72 54 6f | 4e 75 6d 28 74 65 6d 70 |:= StrTo|Num(temp|
|000028f0| 73 74 72 29 3b 0d 09 20 | 20 20 20 20 20 47 65 74 |str);.. |     Get|
|00002900| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|00002910| 65 72 5f 6d 73 67 70 6f | 73 74 27 2c 74 65 6d 70 |er_msgpo|st',temp|
|00002920| 73 74 72 29 3b 20 6d 73 | 67 70 6f 73 74 20 3a 3d |str); ms|gpost :=|
|00002930| 20 53 74 72 54 6f 4e 75 | 6d 28 74 65 6d 70 73 74 | StrToNu|m(tempst|
|00002940| 72 29 3b 0d 09 20 20 20 | 20 20 20 47 65 74 41 47 |r);..   |   GetAG|
|00002950| 6c 6f 62 61 6c 28 27 6c | 74 68 69 73 75 73 65 72 |lobal('l|thisuser|
|00002960| 5f 65 6d 61 69 6c 73 65 | 6e 74 27 2c 74 65 6d 70 |_emailse|nt',temp|
|00002970| 73 74 72 29 3b 20 65 6d | 61 69 6c 73 65 6e 74 20 |str); em|ailsent |
|00002980| 3a 3d 20 53 74 72 54 6f | 4e 75 6d 28 74 65 6d 70 |:= StrTo|Num(temp|
|00002990| 73 74 72 29 3b 0d 09 20 | 20 20 20 20 20 47 65 74 |str);.. |     Get|
|000029a0| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|000029b0| 65 72 5f 66 65 65 64 62 | 61 63 6b 27 2c 74 65 6d |er_feedb|ack',tem|
|000029c0| 70 73 74 72 29 3b 20 66 | 65 65 64 62 61 63 6b 20 |pstr); f|eedback |
|000029d0| 3a 3d 20 53 74 72 54 6f | 4e 75 6d 28 74 65 6d 70 |:= StrTo|Num(temp|
|000029e0| 73 74 72 29 3b 0d 09 20 | 20 20 20 20 20 47 65 74 |str);.. |     Get|
|000029f0| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|00002a00| 65 72 5f 6c 69 6e 65 6c | 65 6e 27 2c 74 65 6d 70 |er_linel|en',temp|
|00002a10| 73 74 72 29 3b 20 6c 69 | 6e 65 6c 65 6e 20 3a 3d |str); li|nelen :=|
|00002a20| 20 53 74 72 54 6f 4e 75 | 6d 28 74 65 6d 70 73 74 | StrToNu|m(tempst|
|00002a30| 72 29 3b 0d 09 20 20 20 | 20 20 20 47 65 74 41 47 |r);..   |   GetAG|
|00002a40| 6c 6f 62 61 6c 28 27 6c | 74 68 69 73 75 73 65 72 |lobal('l|thisuser|
|00002a50| 5f 70 61 67 65 6c 65 6e | 27 2c 74 65 6d 70 73 74 |_pagelen|',tempst|
|00002a60| 72 29 3b 20 70 61 67 65 | 6c 65 6e 20 3a 3d 20 53 |r); page|len := S|
|00002a70| 74 72 54 6f 4e 75 6d 28 | 74 65 6d 70 73 74 72 29 |trToNum(|tempstr)|
|00002a80| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00002a90| 47 65 74 41 47 6c 6f 62 | 61 6c 28 27 6c 74 68 69 |GetAGlob|al('lthi|
|00002aa0| 73 75 73 65 72 5f 64 65 | 66 61 75 6c 74 73 27 2c |suser_de|faults',|
|00002ab0| 74 65 6d 70 73 74 72 29 | 3b 0d 09 20 20 20 20 20 |tempstr)|;..     |
|00002ac0| 20 55 70 72 53 74 72 69 | 6e 67 28 74 65 6d 70 73 | UprStri|ng(temps|
|00002ad0| 74 72 2c 66 61 6c 73 65 | 29 3b 0d 09 20 20 20 20 |tr,false|);..    |
|00002ae0| 20 20 6c 74 68 69 73 75 | 73 65 72 2e 64 65 66 61 |  lthisu|ser.defa|
|00002af0| 75 6c 74 73 20 3a 3d 20 | 5b 5d 3b 0d 09 20 20 20 |ults := |[];..   |
|00002b00| 20 20 20 66 6f 72 20 74 | 64 65 66 6c 74 73 20 3a |   for t|deflts :|
|00002b10| 3d 20 73 70 63 73 72 20 | 74 6f 20 70 61 75 73 65 |= spcsr |to pause|
|00002b20| 20 64 6f 0d 09 20 20 20 | 20 20 20 62 65 67 69 6e | do..   |   begin|
|00002b30| 0d 09 20 20 20 20 20 20 | 20 20 20 74 70 6f 73 20 |..      |   tpos |
|00002b40| 3a 3d 20 30 3b 0d 09 20 | 20 20 20 20 20 20 20 20 |:= 0;.. |        |
|00002b50| 63 61 73 65 20 74 64 65 | 66 6c 74 73 20 6f 66 0d |case tde|flts of.|
|00002b60| 09 20 20 20 20 20 20 20 | 20 20 73 70 63 73 72 20 |.       |  spcsr |
|00002b70| 3a 20 74 70 6f 73 20 3a | 3d 20 70 6f 73 28 27 53 |: tpos :|= pos('S|
|00002b80| 50 49 4e 4e 49 4e 47 2d | 43 55 52 53 4f 52 27 2c |PINNING-|CURSOR',|
|00002b90| 74 65 6d 70 73 74 72 29 | 3b 0d 09 20 20 20 20 20 |tempstr)|;..     |
|00002ba0| 20 20 20 20 6f 6e 65 6b | 65 79 20 3a 20 74 70 6f |    onek|ey : tpo|
|00002bb0| 73 20 3a 3d 20 70 6f 73 | 28 27 4f 4e 45 2d 4b 45 |s := pos|('ONE-KE|
|00002bc0| 59 27 2c 74 65 6d 70 73 | 74 72 29 3b 0d 09 09 20 |Y',temps|tr);... |
|00002bd0| 77 6f 72 64 77 72 61 70 | 20 3a 20 74 70 6f 73 20 |wordwrap| : tpos |
|00002be0| 3a 3d 20 70 6f 73 28 27 | 57 4f 52 44 2d 57 52 41 |:= pos('|WORD-WRA|
|00002bf0| 50 27 2c 74 65 6d 70 73 | 74 72 29 3b 0d 09 09 20 |P',temps|tr);... |
|00002c00| 70 61 75 73 65 20 3a 20 | 74 70 6f 73 20 3a 3d 20 |pause : |tpos := |
|00002c10| 70 6f 73 28 27 50 41 55 | 53 45 27 2c 74 65 6d 70 |pos('PAU|SE',temp|
|00002c20| 73 74 72 29 3b 0d 09 20 | 20 20 20 20 20 20 20 20 |str);.. |        |
|00002c30| 65 6e 64 3b 20 7b 20 63 | 61 73 65 73 20 7d 0d 09 |end; { c|ases }..|
|00002c40| 20 20 20 20 20 20 20 20 | 20 69 66 20 74 70 6f 73 |        | if tpos|
|00002c50| 20 3c 3e 20 30 20 74 68 | 65 6e 20 6c 74 68 69 73 | <> 0 th|en lthis|
|00002c60| 75 73 65 72 2e 64 65 66 | 61 75 6c 74 73 20 3a 3d |user.def|aults :=|
|00002c70| 20 6c 74 68 69 73 75 73 | 65 72 2e 64 65 66 61 75 | lthisus|er.defau|
|00002c80| 6c 74 73 20 2b 20 5b 74 | 64 65 66 6c 74 73 5d 3b |lts + [t|deflts];|
|00002c90| 0d 09 20 20 20 20 20 20 | 65 6e 64 3b 0d 09 20 20 |..      |end;..  |
|00002ca0| 20 20 20 20 47 65 74 41 | 47 6c 6f 62 61 6c 28 27 |    GetA|Global('|
|00002cb0| 6c 74 68 69 73 75 73 65 | 72 5f 6f 6e 74 6f 64 61 |lthisuse|r_ontoda|
|00002cc0| 79 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 6f 6e 74 |y',temps|tr); ont|
|00002cd0| 6f 64 61 79 20 3a 3d 20 | 53 74 72 54 6f 4e 75 6d |oday := |StrToNum|
|00002ce0| 28 74 65 6d 70 73 74 72 | 29 3b 0d 09 20 20 20 20 |(tempstr|);..    |
|00002cf0| 20 20 47 65 74 41 47 6c | 6f 62 61 6c 28 27 6c 74 |  GetAGl|obal('lt|
|00002d00| 68 69 73 75 73 65 72 5f | 69 6c 6c 65 67 61 6c 27 |hisuser_|illegal'|
|00002d10| 2c 74 65 6d 70 73 74 72 | 29 3b 20 69 6c 6c 65 67 |,tempstr|); illeg|
|00002d20| 61 6c 20 3a 3d 20 53 74 | 72 54 6f 4e 75 6d 28 74 |al := St|rToNum(t|
|00002d30| 65 6d 70 73 74 72 29 3b | 0d 20 20 20 20 20 20 20 |empstr);|.       |
|00002d40| 20 20 20 20 20 20 20 47 | 65 74 41 47 6c 6f 62 61 |       G|etAGloba|
|00002d50| 6c 28 27 6c 74 68 69 73 | 75 73 65 72 5f 63 75 72 |l('lthis|user_cur|
|00002d60| 73 6f 72 27 2c 74 65 6d | 70 73 74 72 29 3b 20 63 |sor',tem|pstr); c|
|00002d70| 75 72 73 6f 72 20 3a 3d | 20 74 65 6d 70 73 74 72 |ursor :=| tempstr|
|00002d80| 3b 0d 09 20 20 20 20 20 | 20 47 65 74 41 47 6c 6f |;..     | GetAGlo|
|00002d90| 62 61 6c 28 27 6c 74 68 | 69 73 75 73 65 72 5f 73 |bal('lth|isuser_s|
|00002da0| 6c 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 73 6c 20 |l',temps|tr); sl |
|00002db0| 3a 3d 20 53 74 72 54 6f | 4e 75 6d 28 74 65 6d 70 |:= StrTo|Num(temp|
|00002dc0| 73 74 72 29 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |str);.  |        |
|00002dd0| 20 20 20 20 47 65 74 41 | 47 6c 6f 62 61 6c 28 27 |    GetA|Global('|
|00002de0| 6c 74 68 69 73 75 73 65 | 72 5f 61 63 27 2c 74 65 |lthisuse|r_ac',te|
|00002df0| 6d 70 73 74 72 29 3b 0d | 09 20 20 20 20 20 20 55 |mpstr);.|.      U|
|00002e00| 70 72 53 74 72 69 6e 67 | 28 74 65 6d 70 73 74 72 |prString|(tempstr|
|00002e10| 2c 66 61 6c 73 65 29 3b | 0d 09 20 20 20 20 20 20 |,false);|..      |
|00002e20| 6c 74 68 69 73 75 73 65 | 72 2e 61 63 20 3a 3d 20 |lthisuse|r.ac := |
|00002e30| 5b 5d 3b 0d 09 20 20 20 | 20 20 20 66 6f 72 20 74 |[];..   |   for t|
|00002e40| 72 65 73 74 72 69 63 74 | 69 6f 6e 73 20 3a 3d 20 |restrict|ions := |
|00002e50| 72 6c 6f 67 6f 6e 20 74 | 6f 20 72 64 6c 20 64 6f |rlogon t|o rdl do|
|00002e60| 0d 09 20 20 20 20 20 20 | 62 65 67 69 6e 0d 09 20 |..      |begin.. |
|00002e70| 20 20 20 20 20 20 20 20 | 74 70 6f 73 20 3a 3d 20 |        |tpos := |
|00002e80| 30 3b 0d 09 20 20 20 20 | 20 20 20 20 20 63 61 73 |0;..    |     cas|
|00002e90| 65 20 74 72 65 73 74 72 | 69 63 74 69 6f 6e 73 20 |e trestr|ictions |
|00002ea0| 6f 66 0d 09 20 20 20 20 | 20 20 20 20 20 72 6c 6f |of..    |     rlo|
|00002eb0| 67 6f 6e 20 3a 20 74 70 | 6f 73 20 3a 3d 20 70 6f |gon : tp|os := po|
|00002ec0| 73 28 27 4c 4f 47 4f 4e | 53 27 2c 74 65 6d 70 73 |s('LOGON|S',temps|
|00002ed0| 74 72 29 3b 0d 09 20 20 | 20 20 20 20 20 20 20 72 |tr);..  |       r|
|00002ee0| 63 68 61 74 20 3a 20 74 | 70 6f 73 20 3a 3d 20 70 |chat : t|pos := p|
|00002ef0| 6f 73 28 27 43 48 41 54 | 27 2c 74 65 6d 70 73 74 |os('CHAT|',tempst|
|00002f00| 72 29 3b 0d 09 09 20 72 | 76 61 6c 69 64 61 74 65 |r);... r|validate|
|00002f10| 20 3a 20 74 70 6f 73 20 | 3a 3d 20 70 6f 73 28 27 | : tpos |:= pos('|
|00002f20| 56 41 4c 49 44 41 54 45 | 44 27 2c 74 65 6d 70 73 |VALIDATE|D',temps|
|00002f30| 74 72 29 3b 0d 09 09 20 | 72 62 61 63 6b 73 70 61 |tr);... |rbackspa|
|00002f40| 63 65 20 3a 20 74 70 6f | 73 20 3a 3d 20 70 6f 73 |ce : tpo|s := pos|
|00002f50| 28 27 42 41 43 4b 53 50 | 41 43 49 4e 47 27 2c 74 |('BACKSP|ACING',t|
|00002f60| 65 6d 70 73 74 72 29 3b | 0d 09 09 20 72 61 6d 73 |empstr);|... rams|
|00002f70| 67 20 3a 20 74 70 6f 73 | 20 3a 3d 20 70 6f 73 28 |g : tpos| := pos(|
|00002f80| 27 41 55 54 4f 4d 53 47 | 27 2c 74 65 6d 70 73 74 |'AUTOMSG|',tempst|
|00002f90| 72 29 3b 0d 09 09 20 72 | 70 6f 73 74 61 6e 20 3a |r);... r|postan :|
|00002fa0| 20 74 70 6f 73 20 3a 3d | 20 70 6f 73 28 27 50 4f | tpos :=| pos('PO|
|00002fb0| 53 54 2d 41 4e 4f 4e 27 | 2c 74 65 6d 70 73 74 72 |ST-ANON'|,tempstr|
|00002fc0| 29 3b 0d 09 09 20 72 70 | 6f 73 74 20 3a 20 74 70 |);... rp|ost : tp|
|00002fd0| 6f 73 20 3a 3d 20 70 6f | 73 28 27 50 4f 53 54 20 |os := po|s('POST |
|00002fe0| 27 2c 74 65 6d 70 73 74 | 72 29 3b 20 7b 20 6d 75 |',tempst|r); { mu|
|00002ff0| 73 74 20 68 61 76 65 20 | 74 72 61 69 6c 69 6e 67 |st have |trailing|
|00003000| 20 73 70 61 63 65 20 7d | 0d 09 09 20 72 65 6d 61 | space }|... rema|
|00003010| 69 6c 20 3a 20 74 70 6f | 73 20 3a 3d 20 70 6f 73 |il : tpo|s := pos|
|00003020| 28 27 45 4d 41 49 4c 27 | 2c 74 65 6d 70 73 74 72 |('EMAIL'|,tempstr|
|00003030| 29 3b 0d 09 09 20 72 76 | 6f 74 69 6e 67 20 3a 20 |);... rv|oting : |
|00003040| 74 70 6f 73 20 3a 3d 20 | 70 6f 73 28 27 56 4f 54 |tpos := |pos('VOT|
|00003050| 49 4e 47 27 2c 74 65 6d | 70 73 74 72 29 3b 0d 09 |ING',tem|pstr);..|
|00003060| 09 20 72 6d 73 67 20 3a | 20 74 70 6f 73 20 3a 3d |. rmsg :| tpos :=|
|00003070| 20 70 6f 73 28 27 44 45 | 4c 45 54 45 2d 4d 53 47 | pos('DE|LETE-MSG|
|00003080| 53 27 2c 74 65 6d 70 73 | 74 72 29 3b 0d 09 09 20 |S',temps|tr);... |
|00003090| 72 64 6c 20 3a 20 74 70 | 6f 73 20 3a 3d 20 70 6f |rdl : tp|os := po|
|000030a0| 73 28 27 44 4f 57 4e 4c | 4f 41 44 27 2c 74 65 6d |s('DOWNL|OAD',tem|
|000030b0| 70 73 74 72 29 3b 0d 09 | 20 20 20 20 20 20 20 20 |pstr);..|        |
|000030c0| 20 65 6e 64 3b 20 7b 20 | 63 61 73 65 73 20 7d 0d | end; { |cases }.|
|000030d0| 09 20 20 20 20 20 20 20 | 20 20 69 66 20 74 70 6f |.       |  if tpo|
|000030e0| 73 20 3c 3e 20 30 20 74 | 68 65 6e 20 6c 74 68 69 |s <> 0 t|hen lthi|
|000030f0| 73 75 73 65 72 2e 61 63 | 20 3a 3d 20 6c 74 68 69 |suser.ac| := lthi|
|00003100| 73 75 73 65 72 2e 61 63 | 20 2b 20 5b 74 72 65 73 |suser.ac| + [tres|
|00003110| 74 72 69 63 74 69 6f 6e | 73 5d 3b 0d 09 20 20 20 |triction|s];..   |
|00003120| 20 20 20 65 6e 64 3b 0d | 20 20 20 20 20 20 20 20 |   end;.|        |
|00003130| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00003140| 28 27 6c 74 68 69 73 75 | 73 65 72 5f 61 72 27 2c |('lthisu|ser_ar',|
|00003150| 74 65 6d 70 73 74 72 29 | 3b 0d 09 20 20 20 20 20 |tempstr)|;..     |
|00003160| 20 55 70 72 53 74 72 69 | 6e 67 28 74 65 6d 70 73 | UprStri|ng(temps|
|00003170| 74 72 2c 66 61 6c 73 65 | 29 3b 0d 09 20 20 20 20 |tr,false|);..    |
|00003180| 20 20 6c 74 68 69 73 75 | 73 65 72 2e 61 72 20 3a |  lthisu|ser.ar :|
|00003190| 3d 20 5b 5d 3b 0d 09 20 | 20 20 20 20 20 66 6f 72 |= [];.. |     for|
|000031a0| 20 74 61 63 72 71 20 3a | 3d 20 27 40 27 20 74 6f | tacrq :|= '@' to|
|000031b0| 20 27 47 27 20 64 6f 0d | 09 20 20 20 20 20 20 62 | 'G' do.|.      b|
|000031c0| 65 67 69 6e 0d 09 20 20 | 20 20 20 20 20 20 20 74 |egin..  |       t|
|000031d0| 73 74 72 20 3a 3d 20 27 | 20 27 3b 20 74 73 74 72 |str := '| '; tstr|
|000031e0| 5b 31 5d 20 3a 3d 20 74 | 61 63 72 71 3b 0d 09 09 |[1] := t|acrq;...|
|000031f0| 20 74 70 6f 73 20 3a 3d | 20 70 6f 73 28 74 73 74 | tpos :=| pos(tst|
|00003200| 72 2c 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |r,tempst|r);..   |
|00003210| 20 20 20 20 20 20 69 66 | 20 74 70 6f 73 20 3c 3e |      if| tpos <>|
|00003220| 20 30 20 74 68 65 6e 20 | 6c 74 68 69 73 75 73 65 | 0 then |lthisuse|
|00003230| 72 2e 61 72 20 3a 3d 20 | 6c 74 68 69 73 75 73 65 |r.ar := |lthisuse|
|00003240| 72 2e 61 72 20 2b 20 5b | 74 61 63 72 71 5d 3b 0d |r.ar + [|tacrq];.|
|00003250| 09 20 20 20 20 20 20 65 | 6e 64 3b 0d 09 20 20 20 |.      e|nd;..   |
|00003260| 20 20 20 47 65 74 41 47 | 6c 6f 62 61 6c 28 27 6c |   GetAG|lobal('l|
|00003270| 74 68 69 73 75 73 65 72 | 5f 71 73 63 61 6e 5f 6c |thisuser|_qscan_l|
|00003280| 74 72 27 2c 74 65 6d 70 | 73 74 72 29 3b 0d 09 20 |tr',temp|str);.. |
|00003290| 20 20 20 20 20 66 6f 72 | 20 74 65 6d 70 69 6e 74 |     for| tempint|
|000032a0| 20 3a 3d 20 31 20 74 6f | 20 31 39 20 64 6f 0d 09 | := 1 to| 19 do..|
|000032b0| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 09 20 20 20 |      be|gin..   |
|000032c0| 20 20 20 20 20 20 74 70 | 6f 73 20 3a 3d 20 70 6f |      tp|os := po|
|000032d0| 73 28 27 2c 27 2c 74 65 | 6d 70 73 74 72 29 3b 0d |s(',',te|mpstr);.|
|000032e0| 09 09 20 69 66 20 74 70 | 6f 73 20 3d 20 30 20 74 |.. if tp|os = 0 t|
|000032f0| 68 65 6e 20 74 70 6f 73 | 20 3a 3d 20 6c 65 6e 67 |hen tpos| := leng|
|00003300| 74 68 28 74 65 6d 70 73 | 74 72 29 20 2b 20 31 3b |th(temps|tr) + 1;|
|00003310| 0d 09 09 20 69 66 20 74 | 65 6d 70 73 74 72 20 3c |... if t|empstr <|
|00003320| 3e 20 27 27 20 74 68 65 | 6e 0d 09 09 20 20 20 20 |> '' the|n...    |
|00003330| 71 73 63 61 6e 5b 74 65 | 6d 70 69 6e 74 5d 2e 6c |qscan[te|mpint].l|
|00003340| 74 72 20 3a 3d 20 74 65 | 6d 70 73 74 72 5b 31 5d |tr := te|mpstr[1]|
|00003350| 3b 0d 09 09 20 64 65 6c | 65 74 65 28 74 65 6d 70 |;... del|ete(temp|
|00003360| 73 74 72 2c 31 2c 74 70 | 6f 73 29 3b 0d 20 20 20 |str,1,tp|os);.   |
|00003370| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 64 3b 0d |        |   end;.|
|00003380| 09 20 20 20 20 20 20 47 | 65 74 41 47 6c 6f 62 61 |.      G|etAGloba|
|00003390| 6c 28 27 6c 74 68 69 73 | 75 73 65 72 5f 71 73 63 |l('lthis|user_qsc|
|000033a0| 61 6e 5f 6e 75 6d 62 65 | 72 27 2c 74 65 6d 70 73 |an_numbe|r',temps|
|000033b0| 74 72 29 3b 0d 09 20 20 | 20 20 20 20 66 6f 72 20 |tr);..  |    for |
|000033c0| 74 65 6d 70 69 6e 74 20 | 3a 3d 20 31 20 74 6f 20 |tempint |:= 1 to |
|000033d0| 31 39 20 64 6f 0d 09 20 | 20 20 20 20 20 62 65 67 |19 do.. |     beg|
|000033e0| 69 6e 0d 09 20 20 20 20 | 20 20 20 20 20 74 70 6f |in..    |     tpo|
|000033f0| 73 20 3a 3d 20 70 6f 73 | 28 27 2c 27 2c 74 65 6d |s := pos|(',',tem|
|00003400| 70 73 74 72 29 3b 0d 09 | 09 20 69 66 20 74 70 6f |pstr);..|. if tpo|
|00003410| 73 20 3d 20 30 20 74 68 | 65 6e 20 74 70 6f 73 20 |s = 0 th|en tpos |
|00003420| 3a 3d 20 6c 65 6e 67 74 | 68 28 74 65 6d 70 73 74 |:= lengt|h(tempst|
|00003430| 72 29 20 2b 20 31 3b 0d | 09 09 20 71 73 63 61 6e |r) + 1;.|.. qscan|
|00003440| 5b 74 65 6d 70 69 6e 74 | 5d 2e 6e 75 6d 62 65 72 |[tempint|].number|
|00003450| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 63 6f 70 | := StrT|oNum(cop|
|00003460| 79 28 74 65 6d 70 73 74 | 72 2c 31 2c 74 70 6f 73 |y(tempst|r,1,tpos|
|00003470| 20 2d 20 31 29 29 3b 0d | 09 09 20 64 65 6c 65 74 | - 1));.|.. delet|
|00003480| 65 28 74 65 6d 70 73 74 | 72 2c 31 2c 74 70 6f 73 |e(tempst|r,1,tpos|
|00003490| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|000034a0| 20 65 6e 64 3b 0d 09 20 | 20 20 20 20 20 47 65 74 | end;.. |     Get|
|000034b0| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|000034c0| 65 72 5f 71 73 63 61 6e | 5f 65 78 74 27 2c 74 65 |er_qscan|_ext',te|
|000034d0| 6d 70 73 74 72 29 3b 0d | 09 20 20 20 20 20 20 66 |mpstr);.|.      f|
|000034e0| 6f 72 20 74 65 6d 70 69 | 6e 74 20 3a 3d 20 31 20 |or tempi|nt := 1 |
|000034f0| 74 6f 20 31 39 20 64 6f | 0d 09 20 20 20 20 20 20 |to 19 do|..      |
|00003500| 62 65 67 69 6e 0d 09 20 | 20 20 20 20 20 20 20 20 |begin.. |        |
|00003510| 74 70 6f 73 20 3a 3d 20 | 70 6f 73 28 27 2c 27 2c |tpos := |pos(',',|
|00003520| 74 65 6d 70 73 74 72 29 | 3b 0d 09 09 20 69 66 20 |tempstr)|;... if |
|00003530| 74 70 6f 73 20 3d 20 30 | 20 74 68 65 6e 20 74 70 |tpos = 0| then tp|
|00003540| 6f 73 20 3a 3d 20 6c 65 | 6e 67 74 68 28 74 65 6d |os := le|ngth(tem|
|00003550| 70 73 74 72 29 20 2b 20 | 31 3b 0d 09 09 20 71 73 |pstr) + |1;... qs|
|00003560| 63 61 6e 5b 74 65 6d 70 | 69 6e 74 5d 2e 65 78 74 |can[temp|int].ext|
|00003570| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 63 6f 70 | := StrT|oNum(cop|
|00003580| 79 28 74 65 6d 70 73 74 | 72 2c 31 2c 74 70 6f 73 |y(tempst|r,1,tpos|
|00003590| 20 2d 20 31 29 29 3b 0d | 09 09 20 64 65 6c 65 74 | - 1));.|.. delet|
|000035a0| 65 28 74 65 6d 70 73 74 | 72 2c 31 2c 74 70 6f 73 |e(tempst|r,1,tpos|
|000035b0| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|000035c0| 20 65 6e 64 3b 0d 09 20 | 20 20 20 20 20 47 65 74 | end;.. |     Get|
|000035d0| 41 47 6c 6f 62 61 6c 28 | 27 6c 74 68 69 73 75 73 |AGlobal(|'lthisus|
|000035e0| 65 72 5f 71 73 63 6e 27 | 2c 74 65 6d 70 73 74 72 |er_qscn'|,tempstr|
|000035f0| 29 3b 0d 09 20 20 20 20 | 20 20 66 6f 72 20 74 65 |);..    |  for te|
|00003600| 6d 70 69 6e 74 20 3a 3d | 20 31 20 74 6f 20 31 39 |mpint :=| 1 to 19|
|00003610| 20 64 6f 0d 09 20 20 20 | 20 20 20 62 65 67 69 6e | do..   |   begin|
|00003620| 0d 09 20 20 20 20 20 20 | 20 20 20 74 70 6f 73 20 |..      |   tpos |
|00003630| 3a 3d 20 70 6f 73 28 27 | 2c 27 2c 74 65 6d 70 73 |:= pos('|,',temps|
|00003640| 74 72 29 3b 0d 09 09 20 | 69 66 20 74 70 6f 73 20 |tr);... |if tpos |
|00003650| 3d 20 30 20 74 68 65 6e | 20 74 70 6f 73 20 3a 3d |= 0 then| tpos :=|
|00003660| 20 6c 65 6e 67 74 68 28 | 74 65 6d 70 73 74 72 29 | length(|tempstr)|
|00003670| 20 2b 20 31 3b 0d 09 09 | 20 71 73 63 6e 5b 74 65 | + 1;...| qscn[te|
|00003680| 6d 70 69 6e 74 5d 20 3a | 3d 20 53 74 72 54 6f 42 |mpint] :|= StrToB|
|00003690| 6f 6f 6c 28 63 6f 70 79 | 28 74 65 6d 70 73 74 72 |ool(copy|(tempstr|
|000036a0| 2c 31 2c 74 70 6f 73 20 | 2d 20 31 29 29 3b 0d 09 |,1,tpos |- 1));..|
|000036b0| 09 20 64 65 6c 65 74 65 | 28 74 65 6d 70 73 74 72 |. delete|(tempstr|
|000036c0| 2c 31 2c 74 70 6f 73 29 | 3b 0d 20 20 20 20 20 20 |,1,tpos)|;.      |
|000036d0| 20 20 20 20 20 20 20 20 | 65 6e 64 3b 0d 20 20 20 |        |end;.   |
|000036e0| 20 20 20 20 20 20 20 20 | 20 20 20 47 65 74 41 47 |        |   GetAG|
|000036f0| 6c 6f 62 61 6c 28 27 6c | 74 68 69 73 75 73 65 72 |lobal('l|thisuser|
|00003700| 5f 6d 61 63 72 6f 31 27 | 2c 74 65 6d 70 73 74 72 |_macro1'|,tempstr|
|00003710| 29 3b 20 6d 61 63 72 6f | 5b 31 5d 20 3a 3d 20 74 |); macro|[1] := t|
|00003720| 65 6d 70 73 74 72 3b 0d | 20 20 20 20 20 20 20 20 |empstr;.|        |
|00003730| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00003740| 28 27 6c 74 68 69 73 75 | 73 65 72 5f 6d 61 63 72 |('lthisu|ser_macr|
|00003750| 6f 32 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 6d 61 |o2',temp|str); ma|
|00003760| 63 72 6f 5b 32 5d 20 3a | 3d 20 74 65 6d 70 73 74 |cro[2] :|= tempst|
|00003770| 72 3b 0d 09 20 20 20 20 | 20 20 47 65 74 41 47 6c |r;..    |  GetAGl|
|00003780| 6f 62 61 6c 28 27 6c 74 | 68 69 73 75 73 65 72 5f |obal('lt|hisuser_|
|00003790| 63 6f 6d 70 74 79 70 65 | 27 2c 74 65 6d 70 73 74 |comptype|',tempst|
|000037a0| 72 29 3b 20 63 6f 6d 70 | 74 79 70 65 20 3a 3d 20 |r); comp|type := |
|000037b0| 53 74 72 54 6f 4e 75 6d | 28 74 65 6d 70 73 74 72 |StrToNum|(tempstr|
|000037c0| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|000037d0| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 74 68 | GetAGlo|bal('lth|
|000037e0| 69 73 75 73 65 72 5f 6f | 70 74 69 6f 6e 27 2c 74 |isuser_o|ption',t|
|000037f0| 65 6d 70 73 74 72 29 3b | 0d 09 20 20 20 20 20 20 |empstr);|..      |
|00003800| 55 70 72 53 74 72 69 6e | 67 28 74 65 6d 70 73 74 |UprStrin|g(tempst|
|00003810| 72 2c 66 61 6c 73 65 29 | 3b 0d 09 20 20 20 20 20 |r,false)|;..     |
|00003820| 20 6c 74 68 69 73 75 73 | 65 72 2e 6f 70 74 69 6f | lthisus|er.optio|
|00003830| 6e 20 3a 3d 20 5b 5d 3b | 0d 09 20 20 20 20 20 20 |n := [];|..      |
|00003840| 66 6f 72 20 74 6f 70 74 | 73 20 3a 3d 20 6d 79 61 |for topt|s := mya|
|00003850| 6c 65 72 74 20 74 6f 20 | 6e 6f 6d 61 69 6c 20 64 |lert to |nomail d|
|00003860| 6f 0d 09 20 20 20 20 20 | 20 62 65 67 69 6e 0d 09 |o..     | begin..|
|00003870| 20 20 20 20 20 20 20 20 | 20 74 70 6f 73 20 3a 3d |        | tpos :=|
|00003880| 20 30 3b 0d 09 20 20 20 | 20 20 20 20 20 20 63 61 | 0;..   |      ca|
|00003890| 73 65 20 74 6f 70 74 73 | 20 6f 66 0d 09 20 20 20 |se topts| of..   |
|000038a0| 20 20 20 20 20 20 6d 79 | 61 6c 65 72 74 20 3a 20 |      my|alert : |
|000038b0| 74 70 6f 73 20 3a 3d 20 | 70 6f 73 28 27 41 4c 45 |tpos := |pos('ALE|
|000038c0| 52 54 27 2c 74 65 6d 70 | 73 74 72 29 3b 0d 09 20 |RT',temp|str);.. |
|000038d0| 20 20 20 20 20 20 20 20 | 73 6d 77 20 3a 20 74 70 |        |smw : tp|
|000038e0| 6f 73 20 3a 3d 20 70 6f | 73 28 27 53 4d 41 4c 4c |os := po|s('SMALL|
|000038f0| 2d 4d 53 47 2d 57 41 49 | 54 49 4e 47 27 2c 74 65 |-MSG-WAI|TING',te|
|00003900| 6d 70 73 74 72 29 3b 0d | 09 09 20 6e 6f 6d 61 69 |mpstr);.|.. nomai|
|00003910| 6c 20 3a 20 74 70 6f 73 | 20 3a 3d 20 70 6f 73 28 |l : tpos| := pos(|
|00003920| 27 4e 4f 2d 45 4d 41 49 | 4c 27 2c 74 65 6d 70 73 |'NO-EMAI|L',temps|
|00003930| 74 72 29 3b 0d 09 20 20 | 20 20 20 20 20 20 20 65 |tr);..  |       e|
|00003940| 6e 64 3b 20 7b 20 63 61 | 73 65 73 20 7d 0d 09 20 |nd; { ca|ses }.. |
|00003950| 20 20 20 20 20 20 20 20 | 69 66 20 74 70 6f 73 20 |        |if tpos |
|00003960| 3c 3e 20 30 20 74 68 65 | 6e 20 6c 74 68 69 73 75 |<> 0 the|n lthisu|
|00003970| 73 65 72 2e 6f 70 74 69 | 6f 6e 20 3a 3d 20 6c 74 |ser.opti|on := lt|
|00003980| 68 69 73 75 73 65 72 2e | 6f 70 74 69 6f 6e 20 2b |hisuser.|option +|
|00003990| 20 5b 74 6f 70 74 73 5d | 3b 0d 09 20 20 20 20 20 | [topts]|;..     |
|000039a0| 20 65 6e 64 3b 0d 20 20 | 20 20 20 20 20 20 20 20 | end;.  |        |
|000039b0| 20 20 20 20 47 65 74 41 | 47 6c 6f 62 61 6c 28 27 |    GetA|Global('|
|000039c0| 6c 74 68 69 73 75 73 65 | 72 5f 76 6f 74 65 27 2c |lthisuse|r_vote',|
|000039d0| 74 65 6d 70 73 74 72 29 | 3b 0d 09 20 20 20 20 20 |tempstr)|;..     |
|000039e0| 20 66 6f 72 20 74 65 6d | 70 69 6e 74 20 3a 3d 20 | for tem|pint := |
|000039f0| 31 20 74 6f 20 39 20 64 | 6f 0d 09 20 20 20 20 20 |1 to 9 d|o..     |
|00003a00| 20 62 65 67 69 6e 0d 09 | 20 20 20 20 20 20 20 20 | begin..|        |
|00003a10| 20 74 70 6f 73 20 3a 3d | 20 70 6f 73 28 27 2c 27 | tpos :=| pos(','|
|00003a20| 2c 74 65 6d 70 73 74 72 | 29 3b 0d 09 09 20 69 66 |,tempstr|);... if|
|00003a30| 20 74 70 6f 73 20 3d 20 | 30 20 74 68 65 6e 20 74 | tpos = |0 then t|
|00003a40| 70 6f 73 20 3a 3d 20 6c | 65 6e 67 74 68 28 74 65 |pos := l|ength(te|
|00003a50| 6d 70 73 74 72 29 20 2b | 20 31 3b 0d 09 09 20 76 |mpstr) +| 1;... v|
|00003a60| 6f 74 65 5b 74 65 6d 70 | 69 6e 74 5d 20 3a 3d 20 |ote[temp|int] := |
|00003a70| 53 74 72 54 6f 4e 75 6d | 28 63 6f 70 79 28 74 65 |StrToNum|(copy(te|
|00003a80| 6d 70 73 74 72 2c 31 2c | 74 70 6f 73 20 2d 20 31 |mpstr,1,|tpos - 1|
|00003a90| 29 29 3b 0d 09 09 20 64 | 65 6c 65 74 65 28 74 65 |));... d|elete(te|
|00003aa0| 6d 70 73 74 72 2c 31 2c | 74 70 6f 73 29 3b 0d 20 |mpstr,1,|tpos);. |
|00003ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6e 64 |        |     end|
|00003ac0| 3b 0d 09 20 20 20 20 20 | 20 47 65 74 41 47 6c 6f |;..     | GetAGlo|
|00003ad0| 62 61 6c 28 27 6c 74 68 | 69 73 75 73 65 72 5f 73 |bal('lth|isuser_s|
|00003ae0| 62 6e 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 73 62 |bn',temp|str); sb|
|00003af0| 6e 20 3a 3d 20 53 74 72 | 54 6f 4e 75 6d 28 74 65 |n := Str|ToNum(te|
|00003b00| 6d 70 73 74 72 29 3b 0d | 09 20 20 20 20 20 20 47 |mpstr);.|.      G|
|00003b10| 65 74 41 47 6c 6f 62 61 | 6c 28 27 6c 74 68 69 73 |etAGloba|l('lthis|
|00003b20| 75 73 65 72 5f 64 73 6c | 27 2c 74 65 6d 70 73 74 |user_dsl|',tempst|
|00003b30| 72 29 3b 20 64 73 6c 20 | 3a 3d 20 53 74 72 54 6f |r); dsl |:= StrTo|
|00003b40| 4e 75 6d 28 74 65 6d 70 | 73 74 72 29 3b 0d 09 20 |Num(temp|str);.. |
|00003b50| 20 20 20 20 20 47 65 74 | 41 47 6c 6f 62 61 6c 28 |     Get|AGlobal(|
|00003b60| 27 6c 74 68 69 73 75 73 | 65 72 5f 75 70 6c 6f 61 |'lthisus|er_uploa|
|00003b70| 64 73 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 75 70 |ds',temp|str); up|
|00003b80| 6c 6f 61 64 73 20 3a 3d | 20 53 74 72 54 6f 4e 75 |loads :=| StrToNu|
|00003b90| 6d 28 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |m(tempst|r);..   |
|00003ba0| 20 20 20 47 65 74 41 47 | 6c 6f 62 61 6c 28 27 6c |   GetAG|lobal('l|
|00003bb0| 74 68 69 73 75 73 65 72 | 5f 64 6f 77 6e 6c 6f 61 |thisuser|_downloa|
|00003bc0| 64 73 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 64 6f |ds',temp|str); do|
|00003bd0| 77 6e 6c 6f 61 64 73 20 | 3a 3d 20 53 74 72 54 6f |wnloads |:= StrTo|
|00003be0| 4e 75 6d 28 74 65 6d 70 | 73 74 72 29 3b 0d 09 20 |Num(temp|str);.. |
|00003bf0| 20 20 20 20 20 47 65 74 | 41 47 6c 6f 62 61 6c 28 |     Get|AGlobal(|
|00003c00| 27 6c 74 68 69 73 75 73 | 65 72 5f 75 6b 27 2c 74 |'lthisus|er_uk',t|
|00003c10| 65 6d 70 73 74 72 29 3b | 20 75 6b 20 3a 3d 20 53 |empstr);| uk := S|
|00003c20| 74 72 54 6f 4e 75 6d 28 | 74 65 6d 70 73 74 72 29 |trToNum(|tempstr)|
|00003c30| 3b 0d 09 20 20 20 20 20 | 20 47 65 74 41 47 6c 6f |;..     | GetAGlo|
|00003c40| 62 61 6c 28 27 6c 74 68 | 69 73 75 73 65 72 5f 64 |bal('lth|isuser_d|
|00003c50| 6b 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 64 6b 20 |k',temps|tr); dk |
|00003c60| 3a 3d 20 53 74 72 54 6f | 4e 75 6d 28 74 65 6d 70 |:= StrTo|Num(temp|
|00003c70| 73 74 72 29 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |str);.  |        |
|00003c80| 20 65 6e 64 3b 0d 09 20 | 20 20 47 65 74 41 47 6c | end;.. |  GetAGl|
|00003c90| 6f 62 61 6c 28 27 6c 72 | 65 61 6c 73 6c 27 2c 74 |obal('lr|ealsl',t|
|00003ca0| 65 6d 70 73 74 72 29 3b | 20 6c 72 65 61 6c 73 6c |empstr);| lrealsl|
|00003cb0| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 74 65 6d | := StrT|oNum(tem|
|00003cc0| 70 73 74 72 29 3b 0d 09 | 20 20 20 47 65 74 41 47 |pstr);..|   GetAG|
|00003cd0| 6c 6f 62 61 6c 28 27 6c | 74 69 6d 65 6f 6e 27 2c |lobal('l|timeon',|
|00003ce0| 74 65 6d 70 73 74 72 29 | 3b 20 6c 74 69 6d 65 6f |tempstr)|; ltimeo|
|00003cf0| 6e 20 3a 3d 20 53 74 72 | 54 6f 4e 75 6d 28 74 65 |n := Str|ToNum(te|
|00003d00| 6d 70 73 74 72 29 3b 0d | 09 20 20 20 47 65 74 41 |mpstr);.|.   GetA|
|00003d10| 47 6c 6f 62 61 6c 28 27 | 6c 74 74 69 6d 65 27 2c |Global('|lttime',|
|00003d20| 74 65 6d 70 73 74 72 29 | 3b 20 6c 74 74 69 6d 65 |tempstr)|; lttime|
|00003d30| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 74 65 6d | := StrT|oNum(tem|
|00003d40| 70 73 74 72 29 3b 0d 09 | 20 20 20 47 65 74 41 47 |pstr);..|   GetAG|
|00003d50| 6c 6f 62 61 6c 28 27 6c | 65 78 74 72 61 74 69 6d |lobal('l|extratim|
|00003d60| 65 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 6c 65 78 |e',temps|tr); lex|
|00003d70| 74 72 61 74 69 6d 65 20 | 3a 3d 20 53 74 72 54 6f |tratime |:= StrTo|
|00003d80| 4e 75 6d 28 74 65 6d 70 | 73 74 72 29 3b 0d 09 20 |Num(temp|str);.. |
|00003d90| 20 20 47 65 74 41 47 6c | 6f 62 61 6c 28 27 6c 63 |  GetAGl|obal('lc|
|00003da0| 68 61 74 74 69 6d 65 27 | 2c 74 65 6d 70 73 74 72 |hattime'|,tempstr|
|00003db0| 29 3b 20 6c 63 68 61 74 | 74 69 6d 65 20 3a 3d 20 |); lchat|time := |
|00003dc0| 53 74 72 54 6f 4e 75 6d | 28 74 65 6d 70 73 74 72 |StrToNum|(tempstr|
|00003dd0| 29 3b 0d 09 20 20 20 77 | 69 74 68 20 6c 73 79 73 |);..   w|ith lsys|
|00003de0| 74 61 74 20 64 6f 0d 20 | 20 20 20 20 20 20 20 20 |tat do. |        |
|00003df0| 20 20 62 65 67 69 6e 0d | 20 20 20 20 20 20 20 20 |  begin.|        |
|00003e00| 20 20 20 20 20 20 7b 20 | 6d 61 79 62 65 20 6e 6f |      { |maybe no|
|00003e10| 74 20 73 65 74 20 6e 65 | 78 74 20 32 20 76 61 6c |t set ne|xt 2 val|
|00003e20| 75 65 73 20 73 6f 20 73 | 65 63 75 72 69 74 79 20 |ues so s|ecurity |
|00003e30| 69 73 6e 27 74 20 63 6f | 6d 70 72 6f 6d 69 73 65 |isn't co|mpromise|
|00003e40| 64 20 7d 0d 09 20 20 20 | 20 20 20 47 65 74 41 47 |d }..   |   GetAG|
|00003e50| 6c 6f 62 61 6c 28 27 6c | 73 79 73 74 61 74 5f 62 |lobal('l|systat_b|
|00003e60| 6f 61 72 64 70 77 27 2c | 74 65 6d 70 73 74 72 29 |oardpw',|tempstr)|
|00003e70| 3b 20 62 6f 61 72 64 70 | 77 20 3a 3d 20 74 65 6d |; boardp|w := tem|
|00003e80| 70 73 74 72 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |pstr;.  |        |
|00003e90| 20 20 20 20 47 65 74 41 | 47 6c 6f 62 61 6c 28 27 |    GetA|Global('|
|00003ea0| 6c 73 79 73 74 61 74 5f | 73 79 73 6f 70 70 77 27 |lsystat_|sysoppw'|
|00003eb0| 2c 74 65 6d 70 73 74 72 | 29 3b 20 73 79 73 6f 70 |,tempstr|); sysop|
|00003ec0| 70 77 20 3a 3d 20 74 65 | 6d 70 73 74 72 3b 0d 20 |pw := te|mpstr;. |
|00003ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 69 74 |        |     wit|
|00003ee0| 68 20 68 6d 73 67 20 64 | 6f 0d 09 20 20 20 20 20 |h hmsg d|o..     |
|00003ef0| 20 62 65 67 69 6e 0d 09 | 20 20 20 20 20 20 20 20 | begin..|        |
|00003f00| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 73 79 | GetAGlo|bal('lsy|
|00003f10| 73 74 61 74 5f 68 6d 73 | 67 5f 6c 74 72 27 2c 74 |stat_hms|g_ltr',t|
|00003f20| 65 6d 70 73 74 72 29 3b | 20 0d 09 09 20 69 66 20 |empstr);| ... if |
|00003f30| 74 65 6d 70 73 74 72 20 | 3c 3e 20 27 27 20 74 68 |tempstr |<> '' th|
|00003f40| 65 6e 20 6c 74 72 20 3a | 3d 20 74 65 6d 70 73 74 |en ltr :|= tempst|
|00003f50| 72 5b 31 5d 20 65 6c 73 | 65 20 6c 74 72 20 3a 3d |r[1] els|e ltr :=|
|00003f60| 20 27 20 27 3b 0d 09 20 | 20 20 20 20 20 20 20 20 | ' ';.. |        |
|00003f70| 47 65 74 41 47 6c 6f 62 | 61 6c 28 27 6c 73 79 73 |GetAGlob|al('lsys|
|00003f80| 74 61 74 5f 68 6d 73 67 | 5f 6e 75 6d 62 65 72 27 |tat_hmsg|_number'|
|00003f90| 2c 74 65 6d 70 73 74 72 | 29 3b 20 0d 09 09 20 6e |,tempstr|); ... n|
|00003fa0| 75 6d 62 65 72 20 3a 3d | 20 53 74 72 54 6f 4e 75 |umber :=| StrToNu|
|00003fb0| 6d 28 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |m(tempst|r);..   |
|00003fc0| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00003fd0| 28 27 6c 73 79 73 74 61 | 74 5f 68 6d 73 67 5f 65 |('lsysta|t_hmsg_e|
|00003fe0| 78 74 27 2c 74 65 6d 70 | 73 74 72 29 3b 0d 09 09 |xt',temp|str);...|
|00003ff0| 20 65 78 74 20 3a 3d 20 | 53 74 72 54 6f 4e 75 6d | ext := |StrToNum|
|00004000| 28 74 65 6d 70 73 74 72 | 29 3b 0d 09 20 20 20 20 |(tempstr|);..    |
|00004010| 20 20 65 6e 64 3b 0d 09 | 20 20 20 20 20 20 47 65 |  end;..|      Ge|
|00004020| 74 41 47 6c 6f 62 61 6c | 28 27 6c 73 79 73 74 61 |tAGlobal|('lsysta|
|00004030| 74 5f 75 73 65 72 73 27 | 2c 74 65 6d 70 73 74 72 |t_users'|,tempstr|
|00004040| 29 3b 20 75 73 65 72 73 | 20 3a 3d 20 53 74 72 54 |); users| := StrT|
|00004050| 6f 4e 75 6d 28 74 65 6d | 70 73 74 72 29 3b 0d 09 |oNum(tem|pstr);..|
|00004060| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00004070| 28 27 6c 73 79 73 74 61 | 74 5f 6c 61 73 74 64 61 |('lsysta|t_lastda|
|00004080| 74 65 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 6c 61 |te',temp|str); la|
|00004090| 73 74 64 61 74 65 20 3a | 3d 20 74 65 6d 70 73 74 |stdate :|= tempst|
|000040a0| 72 3b 0d 09 20 20 20 20 | 20 20 47 65 74 41 47 6c |r;..    |  GetAGl|
|000040b0| 6f 62 61 6c 28 27 6c 73 | 79 73 74 61 74 5f 63 61 |obal('ls|ystat_ca|
|000040c0| 6c 6c 65 72 6e 75 6d 27 | 2c 74 65 6d 70 73 74 72 |llernum'|,tempstr|
|000040d0| 29 3b 20 63 61 6c 6c 65 | 72 6e 75 6d 20 3a 3d 20 |); calle|rnum := |
|000040e0| 53 74 72 54 6f 4e 75 6d | 28 74 65 6d 70 73 74 72 |StrToNum|(tempstr|
|000040f0| 29 3b 0d 09 20 20 20 20 | 20 20 47 65 74 41 47 6c |);..    |  GetAGl|
|00004100| 6f 62 61 6c 28 27 6c 73 | 79 73 74 61 74 5f 61 63 |obal('ls|ystat_ac|
|00004110| 74 69 76 65 74 6f 64 61 | 79 27 2c 74 65 6d 70 73 |tivetoda|y',temps|
|00004120| 74 72 29 3b 20 61 63 74 | 69 76 65 74 6f 64 61 79 |tr); act|ivetoday|
|00004130| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 74 65 6d | := StrT|oNum(tem|
|00004140| 70 73 74 72 29 3b 0d 09 | 20 20 20 20 20 20 47 65 |pstr);..|      Ge|
|00004150| 74 41 47 6c 6f 62 61 6c | 28 27 6c 73 79 73 74 61 |tAGlobal|('lsysta|
|00004160| 74 5f 63 61 6c 6c 73 74 | 6f 64 61 79 27 2c 74 65 |t_callst|oday',te|
|00004170| 6d 70 73 74 72 29 3b 20 | 63 61 6c 6c 73 74 6f 64 |mpstr); |callstod|
|00004180| 61 79 20 3a 3d 20 53 74 | 72 54 6f 4e 75 6d 28 74 |ay := St|rToNum(t|
|00004190| 65 6d 70 73 74 72 29 3b | 0d 09 20 20 20 20 20 20 |empstr);|..      |
|000041a0| 47 65 74 41 47 6c 6f 62 | 61 6c 28 27 6c 73 79 73 |GetAGlob|al('lsys|
|000041b0| 74 61 74 5f 6d 73 67 70 | 6f 73 74 74 6f 64 61 79 |tat_msgp|osttoday|
|000041c0| 27 2c 74 65 6d 70 73 74 | 72 29 3b 20 6d 73 67 70 |',tempst|r); msgp|
|000041d0| 6f 73 74 74 6f 64 61 79 | 20 3a 3d 20 53 74 72 54 |osttoday| := StrT|
|000041e0| 6f 4e 75 6d 28 74 65 6d | 70 73 74 72 29 3b 0d 09 |oNum(tem|pstr);..|
|000041f0| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|00004200| 28 27 6c 73 79 73 74 61 | 74 5f 65 6d 61 69 6c 74 |('lsysta|t_emailt|
|00004210| 6f 64 61 79 27 2c 74 65 | 6d 70 73 74 72 29 3b 20 |oday',te|mpstr); |
|00004220| 65 6d 61 69 6c 74 6f 64 | 61 79 20 3a 3d 20 53 74 |emailtod|ay := St|
|00004230| 72 54 6f 4e 75 6d 28 74 | 65 6d 70 73 74 72 29 3b |rToNum(t|empstr);|
|00004240| 0d 09 20 20 20 20 20 20 | 47 65 74 41 47 6c 6f 62 |..      |GetAGlob|
|00004250| 61 6c 28 27 6c 73 79 73 | 74 61 74 5f 66 62 61 63 |al('lsys|tat_fbac|
|00004260| 6b 74 6f 64 61 79 27 2c | 74 65 6d 70 73 74 72 29 |ktoday',|tempstr)|
|00004270| 3b 20 66 62 61 63 6b 74 | 6f 64 61 79 20 3a 3d 20 |; fbackt|oday := |
|00004280| 53 74 72 54 6f 4e 75 6d | 28 74 65 6d 70 73 74 72 |StrToNum|(tempstr|
|00004290| 29 3b 0d 09 20 20 20 20 | 20 20 47 65 74 41 47 6c |);..    |  GetAGl|
|000042a0| 6f 62 61 6c 28 27 6c 73 | 79 73 74 61 74 5f 75 70 |obal('ls|ystat_up|
|000042b0| 74 6f 64 61 79 27 2c 74 | 65 6d 70 73 74 72 29 3b |today',t|empstr);|
|000042c0| 20 75 70 74 6f 64 61 79 | 20 3a 3d 20 53 74 72 54 | uptoday| := StrT|
|000042d0| 6f 4e 75 6d 28 74 65 6d | 70 73 74 72 29 3b 0d 09 |oNum(tem|pstr);..|
|000042e0| 20 20 20 20 20 20 47 65 | 74 41 47 6c 6f 62 61 6c |      Ge|tAGlobal|
|000042f0| 28 27 6c 73 79 73 74 61 | 74 5f 63 6c 6f 73 65 64 |('lsysta|t_closed|
|00004300| 73 79 73 74 65 6d 27 2c | 74 65 6d 70 73 74 72 29 |system',|tempstr)|
|00004310| 3b 20 63 6c 6f 73 65 64 | 73 79 73 74 65 6d 20 3a |; closed|system :|
|00004320| 3d 20 53 74 72 54 6f 42 | 6f 6f 6c 28 74 65 6d 70 |= StrToB|ool(temp|
|00004330| 73 74 72 29 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |str);.  |        |
|00004340| 20 65 6e 64 3b 0d 09 20 | 20 20 47 65 74 41 47 6c | end;.. |  GetAGl|
|00004350| 6f 62 61 6c 28 27 6c 73 | 79 73 6f 70 61 76 61 69 |obal('ls|ysopavai|
|00004360| 6c 27 2c 74 65 6d 70 73 | 74 72 29 3b 20 6c 73 79 |l',temps|tr); lsy|
|00004370| 73 6f 70 61 76 61 69 6c | 20 3a 3d 20 53 74 72 54 |sopavail| := StrT|
|00004380| 6f 42 6f 6f 6c 28 74 65 | 6d 70 73 74 72 29 3b 0d |oBool(te|mpstr);.|
|00004390| 09 20 20 20 47 65 74 41 | 47 6c 6f 62 61 6c 28 27 |.   GetA|Global('|
|000043a0| 6c 65 78 74 72 61 6d 73 | 67 73 27 2c 74 65 6d 70 |lextrams|gs',temp|
|000043b0| 73 74 72 29 3b 20 6c 65 | 78 74 72 61 6d 73 67 73 |str); le|xtramsgs|
|000043c0| 20 3a 3d 20 53 74 72 54 | 6f 4e 75 6d 28 74 65 6d | := StrT|oNum(tem|
|000043d0| 70 73 74 72 29 3b 0d 09 | 20 20 20 47 65 74 41 47 |pstr);..|   GetAG|
|000043e0| 6c 6f 62 61 6c 28 27 6c | 63 68 61 74 63 61 6c 6c |lobal('l|chatcall|
|000043f0| 27 2c 74 65 6d 70 73 74 | 72 29 3b 20 6c 63 68 61 |',tempst|r); lcha|
|00004400| 74 63 61 6c 6c 20 3a 3d | 20 53 74 72 54 6f 42 6f |tcall :=| StrToBo|
|00004410| 6f 6c 28 74 65 6d 70 73 | 74 72 29 3b 0d 20 20 20 |ol(temps|tr);.   |
|00004420| 20 20 20 20 20 20 20 20 | 47 65 74 41 47 6c 6f 62 |        |GetAGlob|
|00004430| 61 6c 28 27 6c 63 68 61 | 74 72 27 2c 74 65 6d 70 |al('lcha|tr',temp|
|00004440| 73 74 72 29 3b 20 6c 63 | 68 61 74 72 20 3a 3d 20 |str); lc|hatr := |
|00004450| 74 65 6d 70 73 74 72 3b | 0d 09 20 20 20 47 65 74 |tempstr;|..   Get|
|00004460| 41 47 6c 6f 62 61 6c 28 | 27 6c 65 78 70 65 72 74 |AGlobal(|'lexpert|
|00004470| 27 2c 74 65 6d 70 73 74 | 72 29 3b 20 6c 65 78 70 |',tempst|r); lexp|
|00004480| 65 72 74 20 3a 3d 20 53 | 74 72 54 6f 42 6f 6f 6c |ert := S|trToBool|
|00004490| 28 74 65 6d 70 73 74 72 | 29 3b 0d 09 20 20 20 47 |(tempstr|);..   G|
|000044a0| 65 74 41 47 6c 6f 62 61 | 6c 28 27 6c 66 74 6f 64 |etAGloba|l('lftod|
|000044b0| 61 79 27 2c 74 65 6d 70 | 73 74 72 29 3b 20 6c 66 |ay',temp|str); lf|
|000044c0| 74 6f 64 61 79 20 3a 3d | 20 53 74 72 54 6f 4e 75 |today :=| StrToNu|
|000044d0| 6d 28 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |m(tempst|r);..   |
|000044e0| 47 65 74 41 47 6c 6f 62 | 61 6c 28 27 6c 65 74 6f |GetAGlob|al('leto|
|000044f0| 64 61 79 27 2c 74 65 6d | 70 73 74 72 29 3b 20 6c |day',tem|pstr); l|
|00004500| 65 74 6f 64 61 79 20 3a | 3d 20 53 74 72 54 6f 4e |etoday :|= StrToN|
|00004510| 75 6d 28 74 65 6d 70 73 | 74 72 29 3b 0d 09 20 20 |um(temps|tr);..  |
|00004520| 20 47 65 74 41 47 6c 6f | 62 61 6c 28 27 6c 6d 72 | GetAGlo|bal('lmr|
|00004530| 65 61 64 27 2c 74 65 6d | 70 73 74 72 29 3b 20 6c |ead',tem|pstr); l|
|00004540| 6d 72 65 61 64 20 3a 3d | 20 53 74 72 54 6f 4e 75 |mread :=| StrToNu|
|00004550| 6d 28 74 65 6d 70 73 74 | 72 29 3b 0d 09 20 20 20 |m(tempst|r);..   |
|00004560| 47 65 74 41 47 6c 6f 62 | 61 6c 28 27 6c 70 74 6f |GetAGlob|al('lpto|
|00004570| 64 61 79 27 2c 74 65 6d | 70 73 74 72 29 3b 20 6c |day',tem|pstr); l|
|00004580| 70 74 6f 64 61 79 20 3a | 3d 20 53 74 72 54 6f 4e |ptoday :|= StrToN|
|00004590| 75 6d 28 74 65 6d 70 73 | 74 72 29 3b 0d 20 20 20 |um(temps|tr);.   |
|000045a0| 20 20 20 20 20 65 6e 64 | 3b 0d 20 20 20 20 20 20 |     end|;.      |
|000045b0| 20 20 0d 09 63 6f 75 6e | 74 20 3a 3d 20 73 69 7a |  ..coun|t := siz|
|000045c0| 65 6f 66 28 6c 61 75 6e | 63 68 64 61 74 61 29 3b |eof(laun|chdata);|
|000045d0| 0d 20 20 20 20 20 20 20 | 20 49 4f 45 72 72 6f 72 |.       | IOError|
|000045e0| 20 3a 3d 20 46 53 57 72 | 69 74 65 28 6c 61 75 6e | := FSWr|ite(laun|
|000045f0| 63 68 66 69 6c 65 2c 63 | 6f 75 6e 74 2c 40 6c 61 |chfile,c|ount,@la|
|00004600| 75 6e 63 68 64 61 74 61 | 29 3b 0d 20 20 20 20 20 |unchdata|);.     |
|00004610| 20 20 20 69 66 20 49 4f | 45 72 72 6f 72 20 3d 20 |   if IO|Error = |
|00004620| 6e 6f 45 72 72 20 74 68 | 65 6e 0d 20 20 20 20 20 |noErr th|en.     |
|00004630| 20 20 20 62 65 67 69 6e | 0d 09 65 6e 64 3b 0d 09 |   begin|..end;..|
|00004640| 49 4f 45 72 72 6f 72 20 | 3a 3d 20 46 53 43 6c 6f |IOError |:= FSClo|
|00004650| 73 65 28 6c 61 75 6e 63 | 68 66 69 6c 65 29 3b 0d |se(launc|hfile);.|
|00004660| 7b 24 49 46 43 20 44 65 | 62 75 67 7d 0d 20 20 20 |{$IFC De|bug}.   |
|00004670| 20 20 20 20 20 49 4f 45 | 72 72 6f 72 20 3a 3d 20 |     IOE|rror := |
|00004680| 46 53 43 6c 6f 73 65 28 | 64 65 62 75 67 66 69 6c |FSClose(|debugfil|
|00004690| 65 29 3b 0d 7b 24 45 4e | 44 43 7d 0d 20 20 20 20 |e);.{$EN|DC}.    |
|000046a0| 20 65 6e 64 3b 0d 0d 20 | 20 65 6e 64 3b 20 7b 20 | end;.. | end; { |
|000046b0| 73 65 74 6c 64 61 74 61 | 20 7d 0d 20 20 20 20 20 |setldata| }.     |
|000046c0| 0d 62 65 67 69 6e 20 7b | 20 73 65 74 6c 61 75 6e |.begin {| setlaun|
|000046d0| 63 68 64 61 74 61 20 7d | 0d 20 20 20 53 65 74 4c |chdata }|.   SetL|
|000046e0| 44 61 74 61 3b 0d 20 20 | 20 0d 20 20 20 57 49 54 |Data;.  | .   WIT|
|000046f0| 48 20 70 61 72 61 6d 50 | 74 72 5e 20 64 6f 0d 20 |H paramP|tr^ do. |
|00004700| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 72 65 |  BEGIN.|      re|
|00004710| 74 75 72 6e 56 61 6c 75 | 65 20 3a 3d 20 50 61 73 |turnValu|e := Pas|
|00004720| 54 6f 5a 65 72 6f 28 42 | 6f 6f 6c 54 6f 53 74 72 |ToZero(B|oolToStr|
|00004730| 28 67 6f 74 4c 61 75 6e | 63 68 29 29 3b 0d 20 20 |(gotLaun|ch));.  |
|00004740| 20 45 4e 44 3b 0d 45 4e | 44 3b 0d 0d 0d 45 4e 44 | END;.EN|D;...END|
|00004750| 2e 0d 0d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004780| 00 00 01 00 00 00 01 ae | 00 00 00 ae 00 00 00 52 |........|.......R|
|00004790| 3b 0d 09 20 57 48 49 4c | 45 20 63 6f 6d 6d 61 6e |;.. WHIL|E comman|
|000047a0| 64 50 74 72 5e 20 3c 3e | 20 30 20 44 4f 0d 09 20 |dPtr^ <>| 0 DO.. |
|000047b0| 10 70 75 74 6c 61 75 6e | 63 68 73 74 75 66 66 2e |.putlaun|chstuff.|
|000047c0| 70 74 02 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |pt....TE|XTMPS ..|
|000047d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 c0 00 40 |..TEXTMP|S .....@|
|000047e0| 00 00 5e 56 00 00 00 00 | 00 00 00 00 00 00 00 00 |..^V....|........|
|000047f0| 00 00 9d 3e 23 87 00 00 | 46 d5 00 00 02 00 6e 75 |...>#...|F.....nu|
|00004800| 6d 62 65 72 20 2b 20 4f | 52 44 28 63 68 29 20 2d |mber + O|RD(ch) -|
|00004810| 20 4f 52 44 28 27 30 27 | 29 3b 0d 09 09 20 63 6f | ORD('0'|);... co|
|00004820| 6d 6d 61 6e 64 50 74 72 | 20 3a 3d 20 50 6f 69 6e |mmandPtr| := Poin|
|00004830| 74 65 72 28 4f 52 44 28 | 63 6f 6d 6d 61 6e 64 50 |ter(ORD(|commandP|
|00004840| 74 72 29 20 2b 20 31 29 | 3b 0d 09 20 20 20 45 4e |tr) + 1)|;..   EN|
|00004850| 44 3b 0d 09 20 49 46 20 | 6e 75 6d 62 65 72 20 3d |D;.. IF |number =|
|00004860| 20 30 20 54 48 45 4e 20 | 6e 75 6d 62 65 72 20 3a | 0 THEN |number :|
|00004870| 3d 20 31 3b 20 20 20 7b | 20 64 65 66 61 75 6c 74 |= 1;   {| default|
|00004880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2e 54 6f |...H..Mo|naco..To|
|00004890| 00 00 00 60 70 69 6c 65 | 20 61 6e 64 20 6c 69 6e |...`pile| and lin|
|000048a0| 6b 20 74 68 69 73 00 06 | 00 08 00 5a 00 13 01 d9 |k this..|...Z....|
|000048b0| 02 4f 00 5a 00 13 01 d9 | 02 4f 9d f9 b0 6f 00 00 |.O.Z....|.O...o..|
|000048c0| 00 2a 00 00 00 2a 00 00 | 00 00 01 00 00 00 00 3f |.*...*..|.......?|
|000048d0| 03 00 80 00 00 00 03 33 | 2e 30 34 33 2e 30 2c 20 |.......3|.043.0, |
|000048e0| a9 20 57 61 79 6e 65 20 | 42 65 6c 6c 2c 20 31 39 |. Wayne |Bell, 19|
|000048f0| 38 36 2c 20 4d 61 63 20 | 76 65 72 73 69 6f 6e 20 |86, Mac |version |
|00004900| 62 79 20 54 65 72 72 79 | 20 54 65 61 67 75 65 00 |by Terry| Teague.|
|00004910| 00 00 1b 03 00 80 00 00 | 00 03 33 2e 30 10 57 57 |........|..3.0.WW|
|00004920| 49 56 20 4d 61 63 20 42 | 42 53 20 33 2e 30 00 00 |IV Mac B|BS 3.0..|
|00004930| 01 00 00 00 01 ae 00 00 | 00 ae 00 00 00 52 00 02 |........|.....R..|
|00004940| d6 58 06 fc 00 00 00 1c | 00 52 00 01 4d 50 53 52 |.X......|.R..MPSR|
|00004950| 00 00 00 12 76 65 72 73 | 00 01 00 1e 03 ed ff ff |....vers|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 01 ff ff 00 00 00 4c |........|.......L|
|00004970| 00 02 d6 9c 00 02 ff ff | 00 00 00 8f 00 02 d6 70 |........|.......p|
+--------+-------------------------+-------------------------+--------+--------+